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ABSTRACT 


The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer 
program was developed at the Naval Postgraduate School to perform performance, 
stability and control, and rotor dynamics analysis during preliminary helicopter design 
efforts. This thesis is the continuation of a previous work in which a Graphical User 
Interface (GUI) was developed and implemented as the front end to the JANRAD 
program. Due to the complexity of the GUI design, only the Performance module of 
JANRAD was completed by the prior student. This thesis expands the capabilities of the 
Performance module, and the JANRAD code, by adding graphical output of performance 
results, improved rotor sizing capabilities, resources for user defined blade elements and 
non-linear blade twist, airfoil meshing capabilities, and additional reference airfoil data 
corrected for compressibility effects. It also contains the basic architecture for the 
Stability and Control module GUI. Additionally, utilizing actual UH-60A Black Hawk 
airfoil and test flight data as inputs, JANRAD 98 version 5.0 was run to validate its 
output with the test flight results, and those produced in a prior thesis by JANRAD 
version 3.1 (1995). Excellent agreement was demonstrated in all flight regimes. 
Utilizing airfoil data corrected for compressibility effects, high altitude runs resulted in 
much better correlation with test flight results than those experienced in 1995 using 
uncorrected airfoil data. A JANRAD Users Guide was updated and is included as 
Appendix A. 
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DISCLAIMER 


Readers are also cautioned that the computer code in this thesis may not have been 
exercised for all cases of interest. While effort has been made, within the time available, 
to ensure that the program is free of computational and logical errors, additional 


verification should be applied. The use of this application 1s at the risk of the user. 
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I. INTRODUCTION 
А. BACKGROUND 


The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer code 
was originally developed by students at the Naval Post Graduate School (NPS) in 
response to the 1993 American Helicopter Society (AHS) Design Competition. The 
desire to develop an easy to use, accurate design tool was the motivation for a thesis 
completed by Nicholson (1993). This code has assisted the last 5 NPS Helo Design 
Teams garner 1* or 2™ place finishes in the AHS competitions, and the new version of 
JANRAD 98 proved its usefulness to this year's design team. The results from this 


competition will not be known until sometime in the fall. 


JANRAD consists of three separate modules, each developed by different 
students. Design of the performance module and stability and control module are based 
on classical blade element theory. More detail on the design of these modules is given in 
Wirth (1993), Nicholson (1993), and Eccles (1995). Although separate, the stability and 
control module does require that the performance module be run first as it uses the 
resulting rotor trim conditions to calculate stability derivatives. The blade dynamics 


portion of JANRAD will not be discussed in this thesis. 


The main performance function calculated 25 different helicopter performance 
parameters given 35 input parameters. The program was written in MATLAB? PC 
version 3.5 using a combination of script and function M-files. Inputs were made at the 
command line or loaded as a filename.mat file from the current working directory. The 
output was displayed in the main workspace and an option to save the output was also 


built into the program. 


The stability and control module calculates a complete set of linearized stability 
derivatives for the helicopter by perturbing it from its "equilibrium" or "trim" condition 


which 1s calculated ш the performance module. 


Since JANRAD version 1.0 was initially developed, many features have been 
added. A section for Rotor Dynamics, was developed by Hiatt (1995). Minor updates 
have included time varying tip loss analysis, the ability to calculate performance 
characteristics over a range of selected input parameters and the addition of airfoil 
choices. Eccles (1995) validated the code by conducting a detailed comparison between 
JANRAD version 3.1 and Sikorsky UH-60A and H-34 measured flight test data. 
JANRAD results predicted power required within 2% for altitudes below 6000 feet MSL. 


The motivation for this thesis 1s the prior work done by Lapacik (1998) on the 
development of JANRAD version 4.0. Better known as JANRAD 98, the thrust of 
version 4.0 was development of a Graphical User Interface (GUI) to simplify operation of 
the JANRAD code. A major complaint by past users was the excessive amount of time it 
took to work within the command window of MATLAB, and the lack of reliability or 


robustness of the program. Through development of a “Windows® “ 


type interface tied 
to the existing code, users can now quickly make multiple runs varying input parameters 
to accomplish preliminary design efforts including; sizing of engines and transmissions, 
rotor blade design, tail rotor design, and calculating performance characteristics of 


chosen designs. 
B. JANRAD 98 VERSION 4.0 


The development of JANRAD 98 version 4.0 was accomplished utilizing tools 
only recently available with the release of MATLAB? version 5.0. The most important of 
these, a function called GUIDE? (Graphical User Interface Design Environment) allows 
the developer to create interactive screens which resemble those of Windows?, using 


"drag and drop" controls or objects obtained from a master pallet. Transparent to the 


GUI developer, MATLAB? 5 automatically writes the code required to create the 
screens. These screen displays significantly improve the look, speed, and ease of use of 


the program. Figure 1 depicts the GUIDE® Control Panel. Other important features of 


MATLAB? 5 are the use of variable "structures", and the Editor/Debugger. Structures 


can be built to contain multiple variables, requiring the programmer to pass only one 


variable name to the different m-files and functions. This 1s invaluable when dealing with 


the large numbers of files associated with JANRAD 98. The Editor/Debugger 


automatically indents and highlights specific MATLAB commands making it easier for 


the programmer to find and correct errors, and making the code much easier to read. 
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Figure 1. The GUIDE? Control Panel from MATLAB? 5. 


Specific details on the development of the GUIs are outlined in Dean (1997), and Lapacik 
(1998). This "front end" design makes utilizing the code, or back end, essentially 
transparent to the user. Where once the user was prompted to provide or ask for 35 input 
parameters, he now only must select a pre-compiled data file which contains these 
parameters. Figure 2 is a sample of the command line of the old JANRAD version 3.1. 
Imagine having to go through and select any number of the 35 such input lines, one at a 
time. In contrast, Figure 3 displays the input parameters screen of JANRAD 98. The 
values from the selected data file are displayed automatically. Modification of any of the 


inputs 1s easily accomplished by simply overwriting the displayed values. 


222222: АР 7772277 7227722 2772 2 ILANA, 
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l. pressure altitude 2. temperature 

3. airspeed 4. gross weight 

5. number of blades 6. blade radius 

7. blade root chord 8. hinge offset 

9. blade grip length 10. blade twist 

11. blade weight 12. # blade elements 

13. rotational velocity 14 # azımuth sectors 

15. lift curve slope 16. airfoil 

17. collective pitch 18. flatplate area 

19. vert projected area 20. wing area 

21. wing span 22. wing CL 

23. wing CDo 24. wing efficiency factor 

25. horizontal tail area 26. horizontal tail span 

27. horizontal tail CL 28. horizontal tail CDo 

29. vertical tail area 30. vertical tail span 

31. vertical tail CL. 32. vertical tail CDo 

33. auxiliary thrust 34. rotor blade taper ratio = 
35. start of taper a 


0. NO CHANGES 
Input the parameter to change. 1 
PA= 
1000 


Pressure altitude (№: 





Figure 2. Sample Input Command Window of JANRAD version 3.1 


The interfaces for several of the performance module improvements are contained 
on this screen. Each of them will be discussed in detail in section II. With the GUI 
implementation, JANRAD was transitioned from a slow, command line program, 
reminiscent of MS DOS, to a much more efficient, better looking program more in line 
with some of the latest professional engineering software packages. Due to time 
constraints on the previous author, however, several design functions of the Performance 


module were not completed. 
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Figure 3. JANRAD 98 Performance Input Parameters Screen 


С JANRAD 98 VERSION 5.0 PERFORMANCE MODULE 


JANRAD 98 version 5.0 is primarily a continuation of Lapacik's (1998) work by 
this writer. This author spent approximately six weeks working with Lapacik to 
develop the requisite GUI and Performance module knowledge necessary to take 


over the work where he left off. Accomplishments during that period included: 


e Code required to display directory and files available to the user. 

e Code required to display values in Performance Input screen. 

e Design of callbacks allowing user to change the values of variables. 

e Code required for MATLAB? to save and print input, output, and matrix files. 

e Actual tying together of the GUI with the existing JANRAD code. 

e Creation of basic status display showing user the progress of Performance run. 

e Modification of JANRAD version 3.1 code and variables to correspond with 
JANRAD 98 use of structures and graphics handles. 

e Addition of Sikorsky airfoil CL and CD data, and construction of code 
allowing its use. 

e Integration of different GUI screens ensuring smooth and proper transfer 


between them with proper variable values being passed. 


All of these accomplishments are included in JANRAD 98 version 4.0 but play a large 
role in the accomplishment of version 5.0 improvements to the Performance module. The 


major areas of emphasis in this thesis for the completion of the module were as follows: 


e Tie in existing JANRAD 3.1 graphical output capabilities and develop 
additional capabilities. 
e Improve the visual status display to keep user better informed of program 


progress during runs. 


e Improve existing airfoil data by obtaining manufacturer's data corrected for 
compressibility effects (Mach number dependent), and implementing this data 
into JANRAD 98 version 5.0. 

e Develop a method to allow the user to input a vector of desired blade element 
dimensions vice a computer generated element vector. 

e Develop a method to allow user to add an additional airfoil at any desired 
blade station as 1s done in many advanced airfoil designs. 

e Develop a method to allow the user to specify the blade twist at any blade 
station rather than assume a linear blade twist. 

e Add GUI screen to allow user to select type of tailrotor and input tail rotor 
parameters. 

e Adjust program to allow for performance calculations on compound 
helicopters and compounds with auxiliary thrust. 

e Add main rotor radius and main rotor speed iteration methods to improve 
rotor sizing capabilities of the program. 

e Re-run several test flight scenarios from Eccles (1996) utilizing correct 
Sikorsky airfoil data and compare results to those of actual UH-60 test flight 
data. 


Each of the above improvements are discussed in detail in section II. 


D. JANRAD 98 VERSION 5.0 STABILITY AND CONTROL MODULE 


An initial goal of this thesis was to complete as much of the Stability and Control 
module GUI implementation as time would allow. Interest by another student in 
continuing the thesis work allowed for a pass down period on GUI design and 
MATLAB? code integration. Using the Stability and Control code written by Wirth 
(1993) and the GUI design methods of Lapacik (1998) and Dean (1997), the intial input 
screens for the module were created. These GUI screens are included as Figures 12 and 
ү. 


Е. USER's GUIDE 


A User's Guide is attached as Appendix A and gives an overview of the major 
features and procedures for using JANRAD version 5.0. Originally developed by 
Lapacik (1998) for version 4.0, this guide has been updated to include the improvements 
of version 5.0. Additionally, the guide will give an introduction to the Stability and 


control module usage procedures. 


Е. JANRAD 98 VERSION 5.0 FILE STRUCTURE FLOW CHART 


An updated flow chart which tracks the files and Callback operations of JANRAD 


98 version 5.0 1s included as Figure 4. The files referenced in the flow chart are included 


as Appendices. 


MATLAB COMMAND LINE 


>>  janrad98 





airfoil me 


B janrad98.m 
performance input janraq o Pt (sm 
performance Input 


Ela eleme 
EE 
stability control 
Compound tailrotor para 
compound tailrotor parame 


Шева ес ние 
| | options cum 
Ireracrlensparameter 7 
iteration method 
m = | : GpDilons.m 


r ume qm 
periormance output. 
Iteration Method 
преса с Dmcalc. 
m 
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Figure 4. JANRAD 98 version 5.0 File Structure Flow Chart 
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Il. JANRAD VERSION 5.0 IMPROVEMENTS 


: TIED IN EXISTING JANRAD 3.1 GRAPHICAL UTPUT 
CAPABILITIES AND DEVELOP ADDITIONAL CAPABILITIES 


The earlier versions of JANRAD, including JANRAD version 3.1, contained 
limited graphical output capabilities. Those plot routines present in version 3.1 were 
customized by previous users to fit their output needs. To provide the flexibility 
necessary for users to extract desired information from the performance results, a number 
of available plots were designed for each of the different iteration methods. Тһе 
Airspeed Iteration plot screen is displayed as Figure 5. Any or all of the available plots 


may be selected by the user. 
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Figure 5. Airspeed Iteration Plot Screen 


Figure 6 shows the Power Required plot for an airspeed iteration from 50-120 
knots. Separate GUI screens were developed for each of the iteration methods. When the 
user selects the available “PLOT” option, the pertinent screen appears allowing them to 
select the desired plots. Upon selecting the “Create Plots” button, a MATLAB? file, 
known as an m-file, creates the plots. Most of the plots are created utilizing calculated 


performance outputs, however, some prompt the user for additional parameter inputs. 
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Figure 6. Rotor Power Required vs. Airspeed Plot 
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IMPROVED THE VISUAL STATUS DISPLAY TO KEEP USER BETTER 


INFORMED OF PROGRAM PROGRESS DURING RUNS 


The early versions of JANRAD, (i.e. version 3.1) contained a series of status lines 


which displayed on the MATLAB® command window to keep the user advised of the 


status of the run. One problem with the use 


background and therefore is mostly transparent to the user. 


of the GUI is that the code runs in the 


Due to the extended run 


times involved with some scenarios, it was desired to develop a means of keeping the 


user informed of the status of the run. 


Figure 7 is a representative status during a 


JANRAD 98 version 5.0 run. The right half of the screen shows the four status boxes 


created to inform the user which part of the trim sequence is being completed, the elapsed 


time of the run, the iteration number of the trim sequence which is being completed, and 


the value of the iteration method variable. 
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Figure 7. Analysis Status Box 


Gi IMPROVED EXISTING  AIRFOIL DATA BY OBTAINING 
MANUFACTURER'S DATA CORRECTED FOR COMPRESSIBILITY 
EFFECTS (MACH NUMBER DEPENDENT), AND IMPLEMENTING 
THIS DATA INTO JANRAD 98 VERSION 5.0 


One of the major recommendations of Eccles (1995) was to attempt to obtain 
airfoil data corrected for mach number and kinematic viscosity so that the program would 
be more reliable at altitudes above approximately 8-10,000 feet. He was able to add 
NACA 0012 data which was mach number dependent, but both the VR12 and HH02 
airfoils provided single CL and CD curves. This author was able to obtain new data from 
both Sikorsky and Boeing which provide CL and CD curves for mach numbers from 0.0 
up to 1.0. Since pressure altitude is an input parameter for the performance routine and 
mach number varies with altitude, the discrepancies at high altitudes shown by Eccles 
(1995), should be reduced or eliminated. As will be shown later in the validation section 
of this thesis, the results obtained using mach number dependent airfoil data agree much 
closer with UH-60 flight test data than that produced by Eccles with the single curve 
VR12 data. The addition of the Sikorsky data brought the airfoil database in JANRAD 
98 version 5.0 up to 6 airfoils. They are the HHO2, VR12, VR15, NACA-0012, 
Sc1094R8, and the Sc1095R8. For this data, we have compressibility corrected data in 
the cases of the VR series airfoils (Boeing), the SC series airfoils (Sikorsky), and the 
NACA-0012 airfoil (UTRC). Additionally, the interpolation capabilities of MATLAB? 
were utilized requiring only tabulated data and not the curve fitted polynomials utilized 
by Nicholson and Eccles. This results in more accurate CL and CD values being utilized 
in the trim routine. Appendix B contains summary CL and CD plots for the VR12, VR15, 
5с1094К8 and Sc1095R8 airfoils to allow a user to match requirements of any particular 


design. 
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{ DEVELOPED A METHOD TO ALLOW THE USER TO INPUT A 
VECTOR OF DESIRED BLADE ELEMENT DIMENSIONS VICE 
COMPUTER GENERATED ELEMENT VECTOR 


The JANRAD code creates a vector of blade element location dimensions based 
on main rotor radius and the number of blade elements input by the user. For some 
applications it may be desired to replace this “evenly spaced” vector to allow the user a 
better picture of what is happening at a specific blade station. This capability would 
allow the user to increase or decrease the spacing of the blade elements at will. Used in 
conjunction with user defined blade twist, the user can specify the blade dimension and 
corresponding blade twist. By choosing to enter unevenly spaced blade elements on the 
input parameters screen, the user is presented by a screen (Figure 8), on which the blade 


element dimensions may be entered. 
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Figure 8. User Defined Blade Element and Blade Twist Screen 


The non-aerodynamic dimension of the blade, or "Grip Ratio" (an input parameter 
accounting for the blade root end), is automatically entered as the default first blade 
element location. Additionally, the ^Effective Blade Radius Ratio" (provides for tip loss), 
is calculated and displayed. This is the same screen on which nonlinear blade twist 


entries may be made. Nonlinear blade twist will be discussed in a following section. 


After blade element location dimensions are entered, JANRAD 98 version 5.0 
calculates the element spacing and adjusts the dimensions to the center of each element. 
Built in error detection gives the user an error message if a dimension greater than the 
effective blade radius is entered. Once constructed, this vector of blade elements is 
utilized for performance calculations by JANRAD 98 version 5.0. At this point in the 
program, no blade element is created out past the effective blade radius. Later an 
adjustment is made so that profile drag forces on the tip of the blade are accounted for, 


but lift forces are zeroed out. 


E. DEVELOPED A METHOD TO ALLOW USER TO ADD AN 
ADDITIONAL AIRFOIL AT ANY DESIRED BLADE STATION 


Many advanced rotor blades are made up of more than one airfoil section. This 
“meshing” of airfoils provides for better airfoil performance due to the use of varied 
airfoil thickness and shapes. It is primarily utilized out near the rotor tip. In order to 
more accurately model rotor performance, it was desired that JANRAD 98 version 5.0 
have this capability. Added as an option on the performance input screen, the user can 
choose to perform an airfoil mesh and specify at what r/R value it should occur. Upon 
entering this value a screen appears which allows selection of the two airfoil types. In all 
performance calculations the CL and CD curves for the appropriate airfoils are utilized. 
Although it is conceivable that some blades may utilize more than two airfoil types, 
JANRAD 98 version 5.0 allows the use of only two airfoils. Figure 9 shows the airfoil 
mesh screen. If the user allows the program to generate a vector of blade elements and 


then selects a mesh point which does not align with a blade element, a logic statement 


calculates the closest existing blade station to that selected by the user for the mesh. 


Therefore, there may be a small discrepancy in where the mesh takes place with that 


selected. This should have a negligible effect on the output. If the user desires an exact 


mesh point then the uneven blade element feature should also be selected. 


: DEVELOPED 


A METHOD TO ALLOW THE USER TO SPECIFY THE 


BLADE TWIST AT ANY BLADE STATION RATHER THAN ASSUME A 
LINEAR BLADE TWIST 


As was discussed ın the blade element section, it is no longer common practice to have a 


linear twist over the length of the rotor blade. Previous versions of JANRAD were based 


on the assumption that twist was linear. To account for non-linear twist it was necessary 


to make changes to the 


way JANRAD 98 version 5.0 calculated the twist at each blade 


element. Utilizing the blade element/blade twist screen shown in Figure 8, it is now 
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Figure 9. Airfoil Mesh Selection Screen 


possible for the user to calculate the twist at any desired blade element dimension and 


input the value. Figure 


Although mostly linear, 


10 illustrates the blade structural twist of the UH-60A rotor blade. 


the twist varies a great deal out near the tip resulting in a "fish 


hook." This drastic change in twist helps optimize aerodynamic characteristics out near 


the tip. Similar to the blade element calculations, Ше blade twist at the left edge of a 
blade element is entered. The code is written to calculate the length of the blade elements, 
adjust the twist output to the middle of the element, and calculate the new twist value at 
this position. If the right edge of the last blade element does not happen to correspond to 
the effective blade radius, a value for the twist of that element will not exist. The code is 
written such that the slope of the twist vector from the previous blade element is utilized 
to calculate the twist for the last element. If this approximation is insufficient, as it would 
be for the UH-60 twist distribution, the user would have to vary his blade element 


spacing to decrease the spacing out near the tip to capture this twist variance. 


——— Model UH- 60A 
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Figure 3. Blade structural tvist. 





Figure 10. UH-60A Blade Structural Twist 
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: ADDED GUI SCREEN TO ALLOW USER TO SELECT TYPE OF TAIL 
ROTOR AND INPUT ROTOR PARAMETERS 


A major problem noted by past users of JANRAD was that program changes were 
introduced each year by the student design teams utilizing it for the AHS Design 
competition. This was no more evident than in the code written to calculate tail rotor 
performance parameters. In reviewing the code during this thesis it was discovered that 
JANRAD was restricted to calculating the performance of a fan-in-tail type of tail rotor. 
Again, to increase the flexibility of JANRAD version 5.0, a selection was added to the 
performance input screen which allows the user to choose between a conventional tail 
rotor, fan-in-tail or notar. A screen was then added allowing the user to enter tail rotor 
dimensions and parameters. The performance of the tail rotor, based on the user inputs, 
is calculated and included in many of the graphical output plots. The tail rotor parameters 


input screen 1s included as Figure 11 
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Figure 11. Compound Helicopter and Tail Rotor Input Parameters 


Time constraints only allowed for the conventional tail rotor code to be fully 
implemented. Although the displays for the other types are included, The underlying 
JANRAD code has not been completed. For the conventional helicopter input, rotor 
speed multiplied by rotor radius is assumed to be equal for the main rotor and tail rotor. 
That is, tail rotor rpm is selected on the basis that main and tail rotors have the same tip 
speed. A default value for tail rotor speed based on this relationship is displayed on the 


tail rotor parameters input screen. 


H. ADJUSTED PROGRAM TO ALLOW FOR PERFORMANCE 
CALCULATIONS ON | COMPOUND HELICOPTERS AND 
COMPOUNDS WITH AUXILIARY THRUST 


The 1998 AHS Student/Industry Design competition RFP calls for a rotorcraft 
designed to carry passengers in the Northeast corridor. To meet requirements, the design 
team selected a compound helicopter with auxiliary thrust capable of reaching speeds of 
180-210 knots. During preliminary design work the need for additional capabilities from 
JANRAD 98 version 5.0 became evident. Early versions of JANRAD (i.e. version 3.1) 
had capabilities of providing auxiliary thrust and a wing, but did not allow for scheduled 
control of the the tip path plane angle of the main rotor, or varying the amount of thrust 
as a function of the drag of the aircraft. The left half of Figure 11 was designed to 
provide these input capabilities. User inputs lead to a variance from the original 
JANRAD code, setting the tip path plane to any desired angle and/or allowing an 
auxiliary thrust schedule. This can be manipulated to vary as airspeed, wing area or other 
parameters, and the resulting drag, change. This added feature allows the user to 
optimize a compound helicopter design by observing the effect of small changes made to 


the tip path angle or auxiliary thrust. 
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During the design team's work it was found that setting the tip path plane angle to 
zero in cruise flight while allowing the auxiliary propeller to provide the required 
horizontal thrust minimized rotor drag for a positive savings in total power required. 
Future improvements to this capability would be to automate the capability of setting an 
auxiliary thrust schedule for any desired airspeed range and/or varying the tip path plane 
angle with airspeed or flight regions (hover, climb, cruise, etc). Additionally, a method 
to set the desired percentage of lift that the wing should carry at any airspeed by varying 


collective would be beneficial. 


I. ADDED MAIN ROTOR RADIUS AND MAIN ROTOR SPEED ITERATION 
METHODS TO IMPROVE ROTOR SIZING CAPABILITIES OF THE 
PROGRAM 


The primary purpose of the JANRAD Performance module is for sizing main and 
tail rotors, and engines during preliminary design of a helicopter. To properly do this one 
must be able to vary rotor radius and rotational speeds to find their optimum values. To 
better aid this goal, two additional iteration methods were added to the JANRAD iteration 
methods screen. These are Rotor Radius and Rotor Speed. As described in Lapacik 
(1998), these methods allow the user to specify minimum, maximum and interval values. 
The performance module is then run and generates vectors of output, which may be 


plotted to provide the user with desired performance data. 


J. IMPLEMENTED LIFT DISTRIBUTION PLOTS TO BETTER MATCH 
FLIGHT TEST DATA 


When aircraft such as the UH-60A are instrumented for flight tests, pressure 
transducers are used on the blades to measure the pressure differentials at specific radial 
locations. These pressure differences directly represent the incremental lift or normal 
force (dN) of the blade at that location. Traditionally, computer simulation models have 
output thrust distributions (dT) on rotor blades instead of lift distributions. The 


distinction is that the incremental thrust vectors are aligned parallel to each other and 
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parallel to the rotor axis of rotation. This discrepancy raises the question of whether there 
are significant differences between the two. Figure 12 shows a blade element with both 
thrust and lift vectors, and their components represented. The equations for calculating 


incremental thrust and lift are also shown. 





dT = 0.5*p*cblade*dr*(Up*2+Ut’2)*(CL*cos(®)-CD*sin(®)); 


dN = 0.5*p*cblade*dr*(Up*2+Ut.%2)*(CL*cos(a)+CD* sin(a)); 


Figure 12. Lift and Thrust Vectors for Blade Element in Forward Flight 


To examine this question the equations for lift were added into JANRAD 98 
version 5.0, and plots identical to the thrust distribution plots were created. Sample thrust 
distribution and lift distribution plots for the UH-60A at 115 knots are contained in 
Appendix F. These show that there is minimal, if any, difference between the two plots. 
Therefore, thrust distribution plots, labeled as airload plots, will continue to be used 


throughout this thesis. 
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IIl. REPLICATION OF TEST FLIGHT SCENARIOS FROM ECCLES (1996) 


A. BACKGROUND 


In 1995, LT David Eccles completed a thesis which, in part, set out to validate the 
results of then JANRAD version 3.1 with Sikorsky UH-60A test flight data gathered from 
NASA’s Ames Research Center. Given the ability to access NASA’s Tilt Rotor 
Engineering Database System (TRENDS), he was able to download data gathered from 
extensive test flights of a fully instrumented UH-60A. Through data manipulation, 
described in detail in his thesis, he generated plots of airload distribution across the rotor 
disk, power required at various airspeeds ranging from hover to cruise, and thrust 
moment variations with azimuth. Although his results in most instances validated 
JANRAD’s calculations by producing results matching very well those of NASA, the 
correct airfoil data of the UH-60A were not available to him at that time. In place of the 
UH-60A airfoil data, he used the Boeing VR-12 airfoil. This data had originally been 
provided NPS in 1993 for the full angle of attack range to 360 degrees. The data also 
included compressibility corrections at lower angles of attack in increments of Mach 
number from 0.0 to 1.0. Between 1993 and 1995 the compressibility corrections were 
removed from this data. LT Eccles was unaware of this, and as a result, did not have 
compressibility effects properly accounted for in his work to validate the UH-60A. As a 
result, there were major disparities between JANRAD’s outputs and the UH-60A flight 
test data at altitudes above 8,000-10,000 feet as reported in Eccles (1995). At these 


altitudes there is significant variation in Mach number due to decreased density of the air. 


B. ROLE OF JANRAD 98 VERSION 5.0 IMPROVEMENTS 


The addition of the Sikorsky Sc1094R8 and Scl095R8 airfoil data has provided 
what is hoped to be a solution to the high altitude output variations from the test flight 
data experienced by Eccles (1995). Mach number is calculated by JANRAD before 


accessing the CL and CD tables, and it will vary for a given airspeed as the pressure 
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altitude increases and the air density decreases. The Sikorsky data is tabulated according 
to angle of attack from —180 degrees to 180 degrees for the following Mach numbers; 
0.0, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0. 


The airfoil mesh capability of JANRAD version 5.0 will allow for the blade to be 
modeled closely approximating the actual UH-60A blade. The Sc1095R8 airfoil is 
utilized from the blade root out to approximately 0.8 r/R and than the Sc1094RS is 
utilized from that point out to the tip. The mesh point and airfoils can be readily selected 


on the performance input screen. 


The blade element and non-linear blade twist screen can be utilized to model the 
structural twist of the UH-60 rotor blade as is shown in Figure 10. Eccles (1995) utilized 


the equivalent linear twist of —18 degrees for his thesis. 


Using the graphics capabilities added to JANRAD 98 version 5.0, the airload 
plots contained in Eccles' thesis can be easily created to verify data. For the purpose of 
the qualitative analysis of results, these plots will be modified to contain all three sets of 


data; Eccles, Test Flight results, and JANRAD version 5.0 results. 


C. RESULTS 


1. Inputs to JANRAD version 5.0 


Inputs were initially held to those values used by Eccles except in the case of the 
Sikorsky airfoil data and blade twist distribution. The flight conditions for the different 
test flights were also utilized to more closely replicate results. After several attempts to 
replicate power required plots proved unsuccessful, these inputs were examined. It was 
discovered, after discussions with Sikorsky Aircraft, that the equivalent flat plate areas 
that had been used were too large. The basic flat plate area used in their performance 
models is 30 square feet and it is adjusted based on fuselage angle of attack and center of 


gravity location. It is also corrected for stabilator incidence. Therefore, a range of 26-40 
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feet was used with the demarcation ranges listed below in Table 1. These areas were 
added into the JANRAD 98 version 5.0 code. Additionally, Eccles (1995) had used a 
value of 0.7 for the horizontal tail coefficient of lift resulting in a lift value of nearly 3000 
pounds at the horizontal tail at 160 knots. As the present JANRAD rotor trim code trims 
for the case where the aircraft center of gravity lies on a vertical line through the axis of 
rotation of the main rotor hub, it is believed that large offset force would have introduced 
errors into rotor trim results and ultimately, power required calculations. This was 
corrected by obtaining from Sikorsky their values for horizontal tail loading versus 
airspeed. At slow speeds, negligible horizontal tail loads exist. For a 16,450 pound gross 
weight helicopter, at 160 knots with a slightly forward center of gravity, their test data 
showed a download of 1460 pounds at the horizontal tail. A linear approximation of this 
download was placed into the JANRAD 98 version 5.0 code to help account for the 
power requirement which will be associated with it. Further discussions with Sikorsky 
centered around the non-linear twist of the UH-60A rotor blade. They approximate this 
in their analysis by using a linear equivalent twist of 14-16 degrees. A median value of 


15 degrees was used for all JANRAD power required runs. 


0 to 50 Kts 50 to 90 Kts 90 to 140 Kts 140 to 160 Kts 
;— 
Flat Plate 
35 ft’ 32 ft" 30 ft 28 ft’ 
Area 


Table 1. Equivalent Flat Plate Area Values for the UH-60A Model 










2. Airloads 


Preliminary JANRAD runs in which the actual twist of the UH-60A rotor blade 
was approximated showed a spike in the radial distribution of lift along the blade. This 


occurred at a point along the blade that corresponded to the location of the start of the 
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“fish hook” twist distribution. Three possible explanations for this phenomena were 
postulated ; (1) the tapering or camber of the meshed section of Sc1094R8 airfoil used at 
the tip of the actual UH-60 blade is not modeled correctly in JANRAD 98 version 5.0; (2) 
there are significant 3-D tip vortex effects present on the UH-60A blade normally 
compensated for by the “fish hook” which were not accounted for in the JANRAD 98 
version 5.0 model; and (3) the UH-60A swept blade tip is not modeled in JANRAD 98 


version 5.0. 


Figures D.1. through D.4. show the thrust distribution plots for the UH-60A at 
HOGE and 115 knots with the Sc1095r8 and Sc1094r8 airfoils meshed at 0.80 r/R. As 
can be seen, the general curve follows that of the test flight data out to the "fish hook" in 
the twist distribution. Even the slight increase in thrust at the mesh point is evident. 
Since the radical change in structural twist occurs out near the tip where JANRAD's two 
dimensional theory and constant tip loss assumptions break down, and the twist is not 
modeled even in Sikorsky's models, the rest of the runs were made using the equivalent 
linear twist of —15 degrees. Figures D.3 through D.10 show UH-60A radial airload 
distributions at psi= 0, 90, 180 and 270 degrees for airspeeds of 0, 65, and 115 knots. 
Notice that the JANRAD 98 version 5.0 predicted results more closely matching those of 
the actual test data than do the previous calculations of Eccles (1995) in most cases. This 
is expected, if for no other reason than the use of actual UH-60A mach number dependant 
airfoil data instead of the single curve VR-12 data. Tip airloads are still not modeled 


very closely due to an inability to model the 3-D flow of the blade’s swept tip. 
3. Power Required vs. Airspeed 


Figures E.1 through E.4 validate the power required curves of the UH-60A with 
JANRAD 98 version 5.0. Shown are traces of actual and predicted main rotor power 
versus airspeed for the UH-60A. In all cases, the helicopter is in straight and level flight. 
The flight conditions were obtained along with the actual test data from the TRENDS 
database. The primary differences from flight to flight are that the helicopter’s gross 
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weight and the altitude at which the flights were flown both increased as the program 


progressed. 


An important contribution of Eccles (1995) work was recognizing that flat plate 
areas had to also be adjusted to account for the automatic flight settings of the variable 
incidence horizontal stabilator on the UH-60A. In his work and the present work, it was 
important to compensate by adjusting the overall equivalent flat plate area input to the 


program. 


Discussions with Sikorsky provided insight into realistic flat plate areas and 
horizontal tail forces versus airspeed. These assisted in producing reasonable results. 
This shows the sensitivity of the power required to small variations of flat plate area, and 
the importance of knowing accurately what the flat plate area of any given helicopter is at 
every flight condition. In the case of both the UH-60A Blackhawk and the AH-64A 
Apache helicopters, scale model tests were conducted in the NASA Langley low speed 


wind tunnel to obtain corresponding flat plate areas. 


Limitations of up to ten percent in predicting power required below 
approximately 50 knots can be attributed to well understood approximations in programs 
such as JANRAD. The classic text by Gessow & Meyers (1952) cited the following as 


potential sources of error in hover performance prediction: 


» Profile-drag losses 
» Nonuniform inflow 
» Slipstream rotation 


> Tip losses 


For the case of a preliminary design tool, the discrepancies between the JANRAD 
98 version 5.0 results and the test flight data can be considered small. JANRAD 98 
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version 5.0 predicted values within approximately five percent throughout all runs, at 
varying altitudes, airspeeds, and temperatures. In order to increase the expected 
accuracy, significant changes to the JANRAD code would need to be made. These 
changes would increase the complexity and running time of the program, negating the 
primary reason it was designed; to provide a user friendly, preliminary design tool, based 


on industry accepted procedures and assumptions. 
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IV. CREATING STABILITY AND CONTROL GUI ARCHITECTURE 


: DESIGNING THE FRONT END 


tilizing the methods and lessons learned from development of the Performance 
Graphical User Interface (GUI), work was begun on the Stability and Control module of 
JANRAD 98 version 5.0. Section II of Lapacik's (1998) thesis outlines in detail the use 
of GUIDE ® to develop figure windows. The Stability and Control module required an 
additional 64 variable entries in order to calculate all of the pertinent stability derivatives. 
A structure containing the new input variables was created was saved into the existing 


data files. Two input screens, shown in Figures 12 and 13, were developed which contain 


descriptors and edit text boxes with all values displayed. 
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Figure 13. Stability and Control Input, Screen 1 of 2 


These values are automatically loaded when a data file is selected at the 
beginning of the JANRAD 98 version 5.0 session. Even if the user elects to create a new 
input file instead of loading an existing one for the Performance module, the option will 
be given to load an existing file for the Stability and Control section due to the large 


number of variables which must be entered. 
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Figure 14. Stability and Control Input, Screen 


The MATLAB? code for the input figures was automatically generated as the 
figures were created. Additional properties and Callbacks were added after initial 
development to adjust or create the properties and/or functions of the individual 


uicontrols. As was the case with the Performance module, only minor changes were 


made to the MATLAB? code while tying it to the GUI by way of Callbacks and 
Switchyards. 


B. CONNECTING THE BACKEND 


As the file structure of JANRAD 98 version 5.0 continued to grow, keeping track of M- 
files and variables became increasingly difficult. For this reason, the conventions 
discussed in section III of Lapacik (1998) were strictly adhered to. Both file and variable 
name conventions were continued for the Stability and Control module. Switchyard 
Callbacks and Structures greatly assisted in simplifying the flow of the file structure as 
well as making it easier to debug mistakes when they occurred. The Structure capability 
was especially valuable due to the large number of stability and control variables needing 


to be passed among the various M-files. 


С. АКСНІТЕСТОКЕ 


The branch point for the Stability and Control module was previously programmed into 
the Performance module. Selecting Stability and Control on the welcome screen sets a 
switch which after completion of the performance calculation, takes the user to the 
Stability and Control input screens. From there, the GUI and Switchyard functions 
provide the necessary commands, variable creation/change, and execution of the 
additional script and function files to complete the Stability and Control analysis. If the 
Stability and Control option is selected after the performance calculations have been 


made, the user will be taken directly to the stability and control input screeens. 
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V. CONCLUSIONS 


Working with JANRAD 98 version 5.0 has been an enlightening experience. A 
much better understanding of rotor blade performance, effects of cross sectional area on 
power required, and some of the limitations of certain assumptions has been gained. 
Through examination of different airfoils, the importance of rotor blade design geared 
toward an aircraft's performance envelope have become evident. We find that good rotor 
blade design is a compromise both between high and low-speed flight and between 


advancing and retreating sides of the rotor disk. 


The spanwise airload plots in Appendix D provided a very good proof as to the 
accuracy of the JANRAD 98 version 5.0 output. Using the Sc1094r8 and Sc1095r8 
meshed rotor blade provided spanwise airload distributions much closer to actual 
distributions than did those of Eccles’ modeled VR-12 blade. Although the plots are 
better, the limitations of JANRAD's two dimensional assumptions of flow become 
evident out toward the blade tip. Here the three dimensional flow around the blade's 
swept tip cause variations that are not modeled in JANRAD. These tip effects are time 


dependent and their greatest influence 1$ on predicting the time history of blade stresses. 


JANRAD 98 version 5.0’s power required numbers were found to be sensitive to 
the helicopter’s equivalent flat plate area. Good performance calculations require that the 
user have a very good idea of actual aircraft flat plate areas for varying flight conditons. 
Once these values were determined accurately for the UH-60A, the power required 
numbers calculated by JANRAD 98 version 5.0 matched those of the test data very well. 
Discrepancies in hover power required values are largely due to the fidelity of predicting 
rotor downwash which depends upon modeling the rotor wake. As was first documented 
by Eccles (1995), there still exists some disparity in JANRAD 98 version 5.0’s power 
required predictions and actual test data at altitudes higher than 8,000 — 10,000 feet. 


Discussions with Sikorsky revealed that the mach number corrections to the airfoil data 
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are not the only source of difference. A breakdown in the assumptions used to calculate 
power required tends to occur at combinations of high altitudes, high gross weight and 


high power settings that can explain these differences. 


Implementation of code to deal with design of compound helicopters revealed two 
interesting phenomena. First, setting the tip path plane angle to some small angle, zero 
being the best, resulted in a significant decrease in rotor drag which allowed for power 
savings when using auxiliary propulsion at high speeds. Second, by removing a large 
percentage of lift from the rotor and placing it on a wing, rotor blade design became even 
„more critical. The spanwise thrust distribution was altered which increased the local 
angle of attack seen by blade elements. In order to reach higher speeds, blade twist had 


to be decreased to offset this tendency. 
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VI. RECOMMENDATIONS 


Since this thesis covered more than one area, the recommendations section will be 
broken into two specific areas: (1) Performance module recommendations; (2) Stability 


and Control module recommendations. 


A. PERFORMANCE MODULE RECOMMENDATIONS 


Many of the features added to the performance module are the result of recommendations 
made in other JANRAD theses. The following areas are suggested topics for future 
changes to this program. They are: 


_ (1) The capability to offset the center of gravity from the center of the 
rotor hub during the rotor trimming process. Adding this capability would allow 
JANRAD to be used to: 

(a) Improve the capability to tim for varying horizontal tail 
parameters. 
(b) Explore the effect of center of gravity variations on rotor 


loads. 


(2) Variable inflow at airspeeds above hover but less than 100 knots. 
This would help to more closely predict power required at these airspeeds. Due to 
the rotor wake, actual power required in this range is slightly greater than that 
calculated by JANRAD. Also, it would permit investigating vibrations from 
hover to 100 knots. 


(3) A method of determining angle of attack of the wing on a 


compound helicopter to better model rotor downwash effects. 
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(4) Implement a free wake analysis to better model three dimensional 


and tip effects. 


(5) Implement an interactive screen which diplays Cl and Cd plots vs 


airspeed to allow user to better select best airfoil to meet design requirements, 
Additional recommendations for the Performance module are: 


(1) Make changes to the JANRAD code which calculates the mean 
thrust location. This value, when allowed to wander far away from the 0.7 r/R 
assumed increases computation time and introduces innacuracies into output 


values. 

(2) Incorporate a baseline test case as a diagnostic run. This would 
help validate JANRAD's code after it has had modifications done or has gone 
unused for an extended period of time. 

(3) Talk to the helicopter manufacturers and government laboratories 
to ensure the input, such as equivalent flat plate area at different flight conditions, 


Is accurate. This will pay large benefits in validation studies. 


(4) Continue to use the upgraded capabilities of subsequent 


MATLAB? releases to improve the GUI operations. 


(5) Continue to add airfoils in the C-81 format to the JANRAD library. 


This will increase the different types of helicopters which can be designed. 


(6) | Implement some sort of file or directory management to handle the 
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increasing size and complexity of the module as the GUI is made more 
complicated. This will become especially important as the Stability and Control, 


and the Dynamics modules are tied together with the Performance module. 


(7) Integrate the variables for fan-in-tail and nctar tail rotor types into 
the aircraft data files. Also add logic code in Trim.m to ensure the proper tail 


rotor calculations are completed. 


(8) | Automate compound helicopter parameters to allow for scheduling 
of percent of lift on wing, auxiliary thrust with airspeed, and tip path plane angle 


with airspeed. 


B. STABILITY AND CONTROL MODULE RECOMMENDATIONS 


This thesis involved only a limited amount of work to improve the Stability and 
Control module. The primary input screens were developed and tied into the existing 
code, but no upgraded capabilities were added. As this work is being continued in 


another thesis, the following goals should be of primary emphasis: 


(1) Continue to develop GUI screens for other aspects of the module 
such as stability derivative outputs. Introduce file print capabilities and/or GUI 


screen print capabilities. 
(2) Standardize the variable names between the Performance and the 
Stability and Control modules. - These two modules were developed separately by 


the original authors and duplicate many variable names. 


(3) Develop input data files for different aircraft. Due to the 


complexity of calculating many of the required input variables, work should be 
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done to document several different input files as references. These can be loaded 


and then modified as necessary, reducing the difficulty for the user. 
(4) | Examine and expand the output capabilities based upon 


improvements to current MATLAB? versions over older ones. This could include 


improved graphical outputs as well as simulink modeling and simulations. 


38 


APPENDIX A. JANRAD 98 USER'S GUIDE 


The JANRAD 98 Users Guide is written as a brief introduction to the Joint 
Army/Navy Rotorcraft Analysis and Design computer program. It is intended to explain 
the basic features and operation of the program and assumes a basic knowledge of 
helicopter mechanics and the use of the MATLAB? programming language by The 
MathWorks® Inc. 


A. SYSTEM REQUIREMENTS 


JANRAD 98 requires MATLAB” version 5.0 or MATLAB Student Edition 
version 5.0 or higher. It will not run on any previous versions. JANRAD 98 version 5.0 
will fit on a single 1.44 MB floppy disk and will need that much memory available for 
installation. JANRAD 98 requires only the hardware to support MATLAB® 5. 


B. INSTALLATION 


The recommended installation of JANRAD 98 is accomplished by first creating a 
subdirectory of MATLAB called Janrad98. The entire contents of the JANRAD 98 
floppy disk should be copied into this directory. Include all M-files and  .mat files. 
JANRAD 98 will not run without all of the .mat files. 


It is recommended that this new subdirectory be added to the MATLAB 5 search 
path. This procedure will eliminate the need to change the working directory from the 
command line each time JANRAD 98 is run and allows you to work from a floppy disk if 
desired. Adding the subdirectory to the search path is accomplished by selecting File, Set 
Path... from the File menu. Change the current directory to the new Janrad98 
subdirectory by using the Browse button. Then press the Add to Path push button. You 


will then be given the option to save the new path or just use the new path for the active 
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session. It is recommended to save this path. Figure A.1 shows the MATLAB? Path 


window. 
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Figure A.1. MATLAB 5 Path Window. 


STARTING JANRAD 98 


Typing janrad98 (lowercase, one word) at the command line prompt of a current 
MATLAB session starts JANRAD 98. This action will launch the JANRAD 98 welcome 


window shown in Figure A.2. 
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Figure A.2. JANRAD 98 Start Up Window. 


: USING JANRAD 98 


As an example, the use of this program will be demonstrated by selecting a 
previously saved input data file and changing the weight, airspeed and pressure altitude. 
User defined blade elements and blade twist will be entered. Tail rotor parameters will 
be verified but not changed. The input and output files will be saved and printed. After 
the performance analysis is complete, we will then iterate on airspeed from 80 to 100 


knots in increments of 5 knots. 


First, from Figure A.2, select the Run/Edit Existing File radio button. It is usually 
easier to edit an existing file because Create New File will not give you the chance to 


change the working directory if desired. Once the selection has been made, press the 


Continue >> button. 
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Figure A.3. Selecting a File to Edit. 


The next figure window to appear is shown in Figure A.3. This window allows 
you to change the working directory and select an input data file. То change the 
directory, type or edit the desired path in the edit box. All of the .mat files listed in the 
working directory are displayed in the list box. Input data files are saved as filename.mat. 
A note of caution here, each GUI window also has an associated guifilename.mat file. 
The user should name input/output data files using helicopter aircraft designations such 
as UH-60A, h-99 or h-designl to differentiate from JANRAD 98 GUI files. Next, select 
an input file to edit by clicking on the file name. For this example, we will edit the UH- 


60A.mat file. Then press Continue >>. 


The Performance Input window will be displayed as in Figure A.4. The input 
data will be displayed within the appropriate edit boxes. Any or all of the parameters can 
be changed at this point without altering the original data file. You will have the 


Opportunity to save the new data if you chose after the analysis has been completed. 
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Figure A.4. Performance Input Parameters 


The airspeed, weight and pressure altitude can be edited by highlighting and 
typing 100, 17,000 and 2,000 in the respective edit boxes. Pressing the enter key 15 not 
necessary to enter the new value. Using the Tab key or clicking on another edit box or 
control will enter any changes. If the user wishes to mesh airfoils, click the Blade Airfoil 


Type scroll bar, and select Airfoil Mesh. The Begin Mesh at (r/R) box will be enabled 


and a value may be entered. At this point, select both the non-linear blade twist and 


uneven blade element spacing blocks. Note that the blade twist and number of blade 


element boxes are disabled. The Print Screen button will print a draft copy of the GUI 


window with the displayed values if desired. It however, will not record the file name for 


which the values are stored. Now press the Continue >> button. 


From the Performance Input window, JANRAD 98 will call the Compound 


Helicopter and Tail Rotor Parameters window, Figure A.5. 


In our example we are 


dealing with a conventional helicopter, therefore no wing or auxiliary thrust is present. 


We do, however, need to verify the tail rotor parameters which have been either loaded 


from the data file or calculated. The parameters will be entered in the appropriate tail 


rotor type. Press OK when ready to continue. 
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Figure A.5. Enter Compound Helicopter and Tail Rotor Parameters 


With either non-linear blade twist or uneven blade element spacing selected, 


JANRAD 98 will next go to the Blade Element page, shown in Figure A.6. 
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Figure A.6. Enter Uneven Blade Elements & Non-linear Blade Twist 


The grip ratio contained in the loaded data file will automatically be displayed 
along with the effective blade radius. The user can enter up to twenty blade elements and 
the corresponding twists. IMPORTANT! Ensure dimensions are entered to the left 
edge of the blade element from the blade root. JANRAD98 will automatically calculate 
the values at the center of the blade elements. Also, do not enter any value greater than 
the effective blade radius or an error message will appear. After entering the desired 


values press Continue. 


Next, JANRAD 98 will call the Iteration Method window as shown in Figure A.7. 
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Figure A.7. Iteration Method / Analysis Window. 


JANRAD 98 will call its computational routines from this window. By choosing 
No Iteration and Analyze, JANRAD 98 will run the parameters selected from the 
previous window. The Analyze pushbutton initiates the computational routines. All 
controls on the GUI will be disabled except the Interrupt pushbutton. The Analysis 
Status Box will display the performance routine status, clock, iteration number, and 
iteration parameter value as JANRAD trims the rotor and adjusts the collective and cyclic 
mathematically. The Interrupt button will halt the routine and enable the Resume control 
and JANRAD Options menu on the GUI. This will allow the user to change parameters, 
quit or return to beginning. The Resume button will continue with the performance 


routine where it originally interrupted. It is worth noting that the Interrupt button will not 


always respond immediately. However, once MATLAB finishes its current line 


evaluation, the calculation will pause. 


The 
The Performance Output 


The Status Box will inform the user when calculations are complete. 
Performance Output window will be displayed automatically. 


window shown in Figure A.8 displays the performance results. These results can be 


saved and the screen printed from this window. However, it is recommended to print the 
saved input and output files through the next window. By pressing the Options >> push 
button, the saved input and output files can be printed simultaneously and in a more 


usable format. The input/output files can be saved after activating the checkboxes, 


typing a file name and pressing the Save or the Options >> push buttons. 
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Figure A.8. Performance Output Window. 





The Options window in Figure A.9 provides the capability to print the latest files, 
go to create plots screens, and eventually, select additional analysis routines. At this time 
however, the Stability and Control and Rotor Dynamics routines have not been 


completed. If selected, you will be reminded of this limitation. 


From here, we will go back to calculate performance parameters by varying 
airspeed. This is done by pressing the Change Iteration Method radio button and the 
Continue >> push button. This will go back to Figure A.7. To vary airspeed, press the 
Airspeed radio button and then Analyze. 
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Figure A.9. Options Window. 


Figure A.10 shows the Iteration Parameters window. By typing 80, 100 and 5 in 
the appropriate edit boxes and selecting Analyze, the performance routine will calculate 
various performance results with respect to airspeed. Later, the user will be able to create 
plots of many of these output parameters. Note: the Aspect Ratio edit box and HIGE 


check box are only enabled when Altitude Iteration or Wing Span Area is selected. 


Figure A.11 shows the Create Plots screen for the Airspeed iteration method. 
Any or all of the plots may be selected. The plots are created and minimized as 
JANRAD automatically recalls the Options window, Figure A.8. Each iteration method 
has its own create plots screen. Some plots require additional user input prior to creating 


them. 


Figure A.12 shows an example airspeed iteration subplot. These plots are 


primarily used to examine trade off studies during the design process. 
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Figure А.10. Iterations Parameter Window. 


The M-file create plots.m contains the code for all of the iteration method create 
plot screens. If any additional plots are desired, changes can be made to this file. 
However, the plots should be substituted for those plots already existing, and the existing 
code should be commented out, not removed. Adding plots requires changes to multiple 
files for proper operation and should not normally be attempted. Always document 


changes made to the code for future users. 


E. HINTS FOR JANRAD 98 OPERATIONS 


The following paragraphs list some recommendations for the most efficient use 
of JANRAD 98. They are a guide based on observation, experience and knowledge of 
the code. Any other recommendations should be addressed to the Helicopter Design 
Instructor at the Naval Postgraduate School for implementation into the next version of 
JANRAD 98. 


JANRAD 98 was designed for robust operations. However, because this is the 
first version to utilize a Graphical User Interface, not all cases of user inputs have been 
exercised. If the program appears not to be working properly, quit JANRAD using the 
options menu available on all but the first window. This action will quit JANRAD, close 
all MATLAB figure windows and clear the base workspace. Restart JANRAD by typing 


janrad98 at the command line. 
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Figure A.11. Example Iteration Method Create Plot Window 


Using azimuth sectors greater than 24 and blade elements greater than 20 wil 
increase computation time. The accuracy of the results does not improve a significan 
amount for these larger values. However, if the 3-D plot from the No Iteration create plot 


screen 15 desired, 72 azimuth sectors will be required to give the proper resolution to the 


plot. 
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Figure A.12. Example of Airspeed Iteration Output Plot. 


For more accurate results, use VR-12, VR-15, 0012, Sc1094r8 or Sc1095r8 
airfoils when possible. These airfoils include Mach number inputs for CL and CD 
calculations. The HH-02 does not depend on Mach number. Note: VR-15 and Sc1094r8 
airfoils are designed for use at the tips of blades and not for use along the entire blade. 
Faulty results should be expected when using them for that purpose. 

Using the print screen buttons on the performance input or performance output 
windows will take up to several minutes on older processors. Use the Send to Printer 


button on the JANRAD 98 Options page for faster and more compact printer output. 
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APPENDIX B. VARIABLE LIST.M 


This script M-file contains a list of variables used in JANRAD 98 version 5.0. 


The list is broken up into four parts. The first part lists variables used primarily for 


computation and analysis. Then global variables, structure variables and GUI graphic 


handles are listed. 


% 


% 


% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 


This File lists the Variables used in JANRAD 98 Version 5.0 
Computational Vars. 


a lift curve slope of rotor system airfoil 
Adisk area of rotor disk 
Afh fuselage equivalent flat plate drag area 
Afv vertical projected area (fuselage area under disk) 
afoil rotor system airfoil type (HHO2/VR12) 
alpha angle of attack, rotor blade radial segment 
alphaT rotor tip path plane angle 
b number of rotor blades 
B tip loss parameter 
betao rotor coning angle 
betat geometric angle, rotor blade radial segment 
bhoriz span, horizontal tail 
bvert span, vertical tail 
bwing span, wing 
cblade chord, rotor blade 
CD drag coefficient, rotor blade radial segment 
CDohoriz profile drag coefficient, horizontal tail 
CDovert profile drag coefficient, vertical tail 
CDowing profile drag coefficient, wing 
CDhoriz drag coefficient, horizontal tail 
CDvert drag coefficient, vertical tail 
CDwing drag coefficient, wing 
CH rotor H-force coefficient 
CH sig CH/solidity 
CL lift coefficient, rotor blade radial segment 
CLhoriz lift coefficient, horizontal tail 
CLvert lift coefficient, vertical tail 
CLwing lift coefficient, wing 
CON b Conventional tail rotor # of blades 
CON cdo Conventional tail rotor cd0 
CON It Conventional tail rotor mornent arm 
CON omega Conventional tail rotor speed 
СОМ Е conventional tail rotor radius 
CQ rotor torque coefficient 
CQ sig CQ/solidity 
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% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 


CT rotor thrust coefficient 
CT sig CT/solidity 
dD differential drag, rotor blade radial segment 
ddD differential drag, rotor blade tip 
ddDM differential drag moment, rotor blade tip 
ddM differential thrust moment, rotor blade tip 
ddT differential thrust, rotor blade tip 
delM change in total thrust moment 
Dftotal resultant of fuselage drag and aux thrust 
Dfuse total drag generated by non-rotor bodies 
DL disk loading 
dM differential thrust moment, rotor blade radial seg 
DMpsi total blade drag moment at specific azimuth angle 
dr rotor blade radial segment width 
Drotor rotor system drag 
dT differential thrust, rotor blade radial segment 
Dhoriz drag, horizontal tail 
dthetadM change in cyclic pitch with change in thrust moment 
Dvert drag, vertical tail 
Dwing drag, wing 
e effective hinge offset 
ewing wing efficiency factor 
filename name of input file 
filename3 name of file used in plot routines 
FM figure of merit 
grip length of inner non-aerodynamic portion of blade 
GW aircraft gross weight 
Hrotor rotor H-force 
lamdaT forward flight induced velocity parameter 
Lftotal total lift generated by non-rotor bodies 
Lhoriz lift, horizontal tail 
Lvert lift, vertical tail 
Lwing Lift, wing 
Mlc first harmonic (cosine) thrust moment coefficient 
Mis first harmonic (sine) thrust moment coefficient 
Machtip Mach number at rotor blade tip 
mblade mass of rotor blade 
Mpsi total blade thrust moment at specific azimuth angle 
mu advance ratio 
naz number of azimuth sectors 
nbe number of blade elements 
omega rotor rotational velocity 
PA pressure altitude 
phi inflow angle, rotor blade radial segment 
phitip inflow angle, rotor blade tip 


Protor power required by rotor 

psi azimuth angle 

q dynamic pressure 

Qrotor rotor torque 

r radius, rotor blade radial segment 
R rotor blade radius 

Rbar Reff-e 

RbarT  rT*Rbar 
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% 
% 
% 
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% 
% 
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% 
% 
% 
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% 
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% 
% 
% 
% 
% 
% 
% 
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Reff 
rho 


effective rotor blade radius (tip loss) 
ambient air density 


ıT location of resultant thrust vector 


solidity solidity 


Shoriz area, horizontal tail 
Svert area, vertical tail 


Swing 
T rotor thrust 
tailrot 
Taux 
temp 


thetalc 


area, wing 


value corresponding to type of tail rotor 
auxiliary thrust 
ambient air temperature 
theta cyclic pitch 
first harmonic (cosine) of cyclic pitch 


thetals first harmonic (sine) of cyclic pitch 


thetao collective pitch at .7 r/R 

Tpsi total blade thrust at specific azimuth angle 

tr rotor blade taper ratio 

twist geometric rotor blade twist 

Up vertical component of velocity 

Uptip vertical component of velocity at tip 

Ut horizontal component of velocity 

Uttip horizontal component of velocity at tip 

vi induced velocity 

Vinf forward airspeed 

Мар tp speed 

wblade weight of rotor blade 

Global Vars. 

AF MAIN Main airfoil in meshed airfoil 

AF TIP Tip airfoil in meshed airfoil 

AR Aspect Ratio 

COUNT Counter to determine where Performance Input was 
called 

FIX TPP VAL Selected value for setting TPP to defined value 

INTER Iteration Interval 

MAXUM Iteration End Value 

MESH VAL Selected value when airfoil mesh option chosen 

MESH STA r/R station where mesh occurs 

MINUM Iteration Start Value 

NAME Input .mat file name 

NEW_AUX_VAL Value of auxiliary thrust 

NEW_r Vector of user defined blade elements 

NEW_TPP Value (rads) TPP is set to for compound helo 

NL_TWIST User defined twist vector 

NL_TWIST_VAL Selected value for non-linear twist 

OUT_COUNT Used to enable selection of plot routines 

PICK Iteration Method Choice (1-9) 

PLOT VALS Values chosen for no iteration plot 

RADSPC VAL Selected value for non-even blade elements 

REGIME Include HIGE Calculations Choice (1=yes, 0=no) 
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% 


% 
% 
% 
% 
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% 


% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 


% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 


Structure Vars. 


S MATR VEC Matrix/Vector structure 
S PERF INPUT Perf.m input structure 
S USER INPUT User input structure 

S FIT TR INPUT Fan-In-Tail input structure 
S NOTAR TR INPUT NOTAR input structure 


Graphics Handle Vars. 
H AF MESH Airfoil Mesh List Box 
H AL Altitude Iteration Radio Button 
H AL IT P# Altitude Iteration Plots 
H ANAL Analysis Figure Window 
H AS Airspeed Iteration Radio Button 
Н А5 П Ря Airspeed Iteration Plots 
H ASPECT Aspect Ratio Static Text Box 
H ASPECT EDIT Aspect Ratio Edit Text Box 
H BLD EL ` Blade Element Menu Handle 
Н ВК Iteration Method << Back Push Button 
H BT Blade Twist Iteration Radio Button 
H_BT_IT_P# Blade Twist Iteration Plots 
H_BTR Blade Taper Ratio Iteration Radio Button 
H_BTR_IT_P# Blade Taper Ratio Iteration Plots 
H check) Save Input Data Check box 
H check2 Save Output Data Check box 
H check3 Save Matrix & Vector Data Check box 
H CID Change Input Data Radio Button 
H CIM Change Iteration Method Radio Button 
H CNF Create New Radio Button 
H datain Save Input Data Edit Box 
H dataout Save Output Data Edit Box 
H DISK Horiz. Tail Under Main Rotor Disk Check Box 
H EJANRAD Exit JANRAD Radio Button 
H EREF Edit/Run Existing File Radio Button 
H FIX TPP Set TPP Check Box 
H GO Analyze Push Button 
H GW Gross Weight Iteration Radio Button 
H GW IT P# Gross Weight Iteration Plots 
Н НОЕ Iteration Parameters HIGE Check box 
H inputfile Input File Static Text box 
H IP Iteration Parameters figure window 
H IT BOX Iteration Parameters Static Text Box 
H IT METH Iteration Method figure window 
H J JANRAD 98 Figure window 
H LB Input File List Box 
H MEN JANRAD 98 Options Menu handle 
H MESH Mesh Parameters figure window 
H NI No Iteration Radio Button 
H_NO IT P# No Iteration Plots 
H NL TWIST Non-linear twist check box 
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% 
% 
% 
% 
% 
% 
% 
% 
% 
% 


h opt 
H OPTIONS 


Performance Output JANRAD Options Menu 
Options Figure Window 


H outputfile Output File Static Text box 


Performace Radio Button 


Airfoil List Box 


Performance Input Figure Window 


Performance Output Figure Window 
Perform Rotor Dynamics Radio Button 


H_printin Print Input File Check Box 


H vecdata 
H vecfile 
H WORK 
H WSA 


Н WSA IT P4 


Print Output File Check Box 
Print Matrix & Vector File Check Box 


Perform Stability and Control Radio Button 

Rotor Radius Iteration plots 

Rotor Speed Iteration plots 

Rotor Dynamics Radio Button 

Resume Push Button 

Return to Beginning Radio Button 

Interrupt Push Button 

Stability and Control Radio Button 

Start of Taper Iteration Radio Button 

Start of Taper Iteration Plots 

Top Analysis Status Static Text Box 

Middle Analysis Status Static Text Box (Elapsed Time) 
Middle Analysis Status Static Text Box (iteration £) 
Bottom Analysis Status Static Text Box (param value) 


Save Matrix & Vector Data Edit Box 
Vector File Static Text box 


Working Directory Edit Box 
Wing Span Area Iteration Radio Button 
Wing Span Area Iteration Plots 
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APPENDIX C. VR-12/VR-15/SC1094R8/SC1095R8 CL AND CD DATA 
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Figure C.1. VR-12 CI Curve, Mach £ Dependent 
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Figure C.2. VR-12 Cl Curve 
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Figure C.3. VR-12 Cd Curve, Mach # Dependent 
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Figure C.4. VR-12 Cd Curve 


62 


m 
2 


' 
' 
' 
+ 
' 
' 
' 
' 
' 
' 
T 
' 
' 
' 
' 
' 
A 
' 
' 
' 
' 
' 
' 


I 
l 
1 
I 
l 
| 
l 
I 
| 
I 
| 
| 
I 
| 
| 
I 
| 
| 
I 


— — — — — — — — — —— — — — — — — — - 
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Figure C.5 
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Figure C.6. VR-15 Cl Curve 
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Figure C.7. VR-15 Cd Curve, Mach £ Dependent 
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Figure C.8. VR-15 Cd Curve 
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Figure C.9. Sc1094R8 Cl Curves, Mach # Dependent 


67 


EE 


DS 


1 
=> = = = = = = щш} = == == == © єз эз е є{ = =» ч» = аз = ч» = ш] Ó w mÓ ee e e e ele = = om om e ele e e ee ee e ele e e e 
I 1 
| 


' 

8 

t 
4 


EE EE 


l 
I 





Figure C.10. Sc1094R8 CI Curve 
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Figure C.11. Sc1094R8 Cd Curves, Mach £ Dependent 
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Figure C.12. Sc1094R8 Cd Curve 
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Sc1095R8 CI Curve, Mach # Dependent 
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Figure C.14. Sc1095R8 Cl Curve 
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Figure C.15. Sc1095R8 Cd Curve, Mach # Dependent 
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Figure C.16. Sc1095R8 Cd Curve 
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APPENDIX D. AIRLOAD PLOTS 


The following four Airload Plots are with “fish hook" twist model included. 
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Figure D.1. Linear Twist vs. Actual UH-60A Twist, HOGE, W= 0, 90° 
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Figure D.2. Linear Twist vs. Actual UH-60A Twist, HOGE, W= 180, 270° 
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Figure D.3. UH-60A Radial Airload Distribution, 
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Figure D.4. UH-60A Radial Airload Distribution, 115 Knots, Y= 180, 
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Figure D.5. UH-60A Radial Airload Distribution, HOGE 
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Figure D.6. UH-60A Radial Airload Distribution, HOGE, Y= 180, 270 
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Figure D.10. UH-60A Radial Airload Distribution, 115 Knots, Y= 180, 270° 
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APPENDIX E. POWER REQUIRED CURVES 
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Figure E.1. UH-60A Power Required vs Airspeed, Flight #84 
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Figure E.2. UH-60A Power Required vs Airspeed, Flight #85 
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Figure E.3. UH-60A Power Required vs Airspeed, Flight #83 
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Figure E.4. UH-60A Power Required vs Airspeed, Flight #89 
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APPENDIX F. LIFT AND THRUST COMPARISON PLOTS 
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Figure F.1. UH-60A Radial Thrust Distribution at 115 Kts 
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Figure F.2. UH-60A Radial Lift Distribution at 115 Kts 
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APPENDIX G. JANRAD98.M 


This file launches JANRAD 98 and its Graphical User Interface. It is called by 
typing janrad98 at the MATLAB command line. 


function janrad98() 

% 

% JANRAD98.M 

% Joint Army Navy Rotorcraft Analysis and Design 
% (JANRAD) 

% Version 5.0 

% June 1998 


% Version 1.0 Designers 
% MAJ Bob Nicholson 
% MAJ Walter Wirth 


% Version 2.0 Update Designer 
% LT Dale Feddersen 


% Version 3.0 update Designer 
% LT Dave Eccles 


% Version 3.1 update Designer 
% LT Dan Hiatt 


% Version 4.0 update Designer 
% LCDR. Chris F. Lapacik 


% Version 5.0 update Designer 
% | LCDR. William L. Hucke 


% Version 5.0 expanded the capabilities of the Graphical User Interface as well as adding new features to 
JANRAD 98. These include, user defined blade elements, airfoil meshing, non-linear blade twist, 
compound helicopter, tail rotor parameters, and output plotroutines for each iteration method. Mach 
number dependent VR12 and VR 15airfoil data was also added. Version 5.0 also added the basic Stability 
and Control GUI architecture. 


% Version 4.0 added the Graphical User Interface. The GUI allows the user to create, run, save and print 
files with less effort and greater speed. The basic performance calculation routines remain essentially the 
same as version 3.1. However, the input, output and file structure were modified extensively. Sikorsky H- 
60 airfoil data was also added. 
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% 


Version 3.1 adds time varying tip loss and the corrected dynamics module. The dynamics module 


provides Southwell plots and rotor blade response in flap and lag motion. Also included is rotor flapping 
stability determination by Floquet analysis. 


% 
% 
% 
% 
% 


% 
% 
% 
% 
% 
% 
% 


Version 2.0 corrected minor bugs in ver 1.0 and incorporated 
Wheatley's Eqn. Additionally the user may now input a 
tapered rotor blade. Finally a menu was created for 

ease of performing various iterations and then saving that 
calculated data for later use/manipulation. 


This program is an interactive preliminary design tool 

developed to aid the design student in determination of 

initial rotorcraft configurations and in the calculation 

of performance, stability and control, and other parameters. 

The program will work for conventional or compound rotorcraft. 
It will provide accurate data for airspeeds less than 10 

knots and greater than or equal to 50 knots. 


load janrad98 


global H JAN H EREFH CNF 


H JAN = figure(‘Units', ‘normalized’, ... 


b = 


D= 


b= 


'Color',[0.8 0.8 0.8], ... 

'Colormap',mato, ... 

'MenuBar','none, ... 

‘Name',,JANRAD 98’, ... 

Number Tue oft ... 

‘PointerShapeCData',matl, ... 

"Position',[-0.003125 0.0625 0.954688 0.8625], ... 
'Tag' Figl5; 

uicontrol(Parent,' H JAN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',16, ... 

'FontWeight','bold', ... 

'Position',[0.0604396 0.757143 0.434066 0.145714], ... 
'String','Welcome to JANRAD 98', ... 

'Style','text', ... 

‘Tag’, 'StaticTextl'); 

uicontrol(‘Parent',H_JAN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

'FontWeight','bold', … 

'Position',[0.0758597 0.617284 0.403226 0.0925926], ... 
'String''Joint Army/Navy Rotor Analysis and Design‘, ... 
'Style' text”, ... 

'Tag' 'StaticText7"); 

uicontrol(Parent;H JAN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
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'Position', [0.0593654 0.392157 0.437052 0.0648567], ... 
'String',' Department of Aeronautics & Astronautics', ... 
'FontSize' 10, ... 
'FontWeight','bold', ... 
'Style','text', ... 
'Tag','StaticText6'); 
р = uicontrol( Parent, H JAN, ... 
"Units," normalized', ... 
'BackgroundColor', [0.752941 0.75294] 0.752941], ... 
'Position', [0.0766129 0.333333 0.403226 0.0617284], ... 
'String',' Naval Postgraduate School’, ... 
'FontSize' 10, ... 
'FontWeight' 'bold", ... 
'Style' West, 
Таг", StaticTextS”); 
b = uicontrol('Parent' H_JAN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


'"Position',[0.0766129 0.271605 0.403226 0.0617284], ... 


'String' Monterey, CA 93940, ... 
'FontSize',10, ... 
'FontWeight','bold', ... 
Style text, ... 
'Tag’,'StaticText4'); 
b = uicontrol('Parent’,H_ JAN, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0766129 0.17284 0.403226 0.0771605], ... 
'String','March 25, 1998', ... 
'FontSize',10, … 
'FontWeight','bold', ... 
Spie text, 
'Tag','StaticText3’); 
H_EREF = uicontrol('Parent',A_JAN, ... 
"'Units',normalized', ... 
'Callback',janrad98 fcn eref, ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position',[0.587992 0.655172 0.275362 0.103448], ... 
'String','Edi/Run Existing File', ... 
'Style','radiobutton', ... 
"Tag ,'Radiobutton]l', ... 
'Value',1); 
H CNF - uicontrol(Parent,;H JAN, ... 
"Units',"normalized', ... 
'Callback' 'janrad98_fcn сағ, ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.587992 0.514368 0.275362 0.106322], ... 
‘String, Create New File', … 
'Style','radiobutton', ... 
‘Tag’, Radiobutton2'); 
b = uicontrol(‘Parent',H_ JAN, ... 
'Units' 'normalized", ... 
'Callback' 'janrad98_fcn stop', ... 
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'FontSize' 12, ... 
'FontWeight','bold', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.587992 0.295977 0.275362 0.112069], ... 

'String','Quit JANRAD 98), ... 
"Tag, 'Pushbutton1*); 

b = uicontrol(Parent,;H JAN, ... 
"Units', normalized', ... 
'Callback',janrad98 fcn cont, ... 
'FontSize' 12, … 
'FontWeight,'bold', ... 
'BackgroundColor', [0.75294] 0.752941 0.752941], ... 

'Position', [0.590062 0.149425 0.273292 0.112069], ... 

'String',' Continue >>", ... 
‘Tag’, Pushbutton2’); 

b = uicontrol('Parent',H_JAN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize', 12, ... 
'FontWeight','demi', ... 
"Position', [0.591097 0.793103 0.269151 0.091954], ... 
'String','Select Option and Continue‘, ... 
'Style','text', ... 
'Tag’,'StaticText2'); 

b = uicontrol(Parent;H JAN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.561077 0.445402 0.329193 0.482759], ... 
'Style' 'frame', ... 
"Таг, Егате!); 

b = uicontrol(Parent,H JAN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


'Position', [0.0342742 0.570988 0.479839 0.367284], ... 


'Style','frame', ... 
'Tag' Frame2”); 

b - uicontrol(Parent,H JAN, ... 
"Units',"normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.0348004 0.149321 0.479017 0.3454], ... 
'Style','frame', ... 

'Tag', Frame3'); 


assignin(‘base’,"H_EREF',H_EREF); 
assignin(‘base','H_CNF',H_CNF); 
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APPENDIX H. JANRAD98 FCN.M 


Switchyard Callback function called by the janrad98.m GUI function. 


function janrad fcn(Action) 


% Switchyard Callback function for janrad98.m 
% JANRAD 98 VERSION 5.0 


global H EREF H CNFH JAN NAME COUNT 


cond1=get(H_EREF,'Value’), 
cond2=get(H_CNF,'Value'); 


COUNT=0; 


if nargin, 
switch Action 
case ‘cont’, 
if condl—1 
analysis 
close (H. JAN) 
else, 
МАМЕ-П; 
performance input 
close (H. JAN) 
end 
case 'stop' 
quit gui 
case 'eref 
set(H_EREF Value", 1) 
set(H_CNF,'Value',0) 
case 'cnf' 
ве (Н EREF,'Value',0) 
ве (Н СМЕ, Уаше ,1) 
end 
end 
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APPENDIX I. ANALYSIS.M 


This file creates the GUI to select a JANRAD 98 data file and select the analysis 
method. It is called in the janrad98 fcn.m Switchyard Callback function. 


function analysis() 


% GUI figure window to Select Type Analysis 
96 JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load analysis 
global H_PH SACH RD H АМАН LB NAME 


H_ANAL = figure(’Units','normalızed), ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mat0, ... 

'Name',' Analysıs', ... 

Number (de! off ... 

"PointerShapeCData',matl, ... 
'Position',[-0.003125 0.0625 0.954688 0.8625], ... 
"Tag,'Fig25; 

b 7 uimenu(Parent,;H ANAL, ... 

'Label' 'JANRAD Options, ... 
'Tag','uimenul'); 

с = uimenu('Parent',b, ... 
'Callback','analysis fcn quit, ... 
‘Label''Quit JANRAD', … 

"Tag, JANRAD OptionsSubuimenul^); 

c 7 uimenu( Parent b, ... 

'Callback','analysis fcn return',... 
‘Label','Return to Begining', … 
'Tag',JANRAD OptionsSubuimenul'); 

c = uimenu('Parent',b, ... 
'Callback','analysis fcn delta_input.,... 

Label" Change Input Parametere, 
"Tag','Subuimenul?); 

с = uimenu('Parent',b, ... 
'Callback','analysis fcn about ,... 
'Label', About Janrad 98 ...', ... 
'Separator','on',... 
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b 


"Tag ,' Subuimenul*); 
= uicontrol(Parent;' H ANAL, ... 
'Units''normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
FontWeight','bold', ... 
"Position',[0. 106033 0.896175 0.332724 0.0546448], ... 
'String', Type Path to Working Directory”, ... 
Style text... 
'Tag', StaticText?2'), 


H WORK - uicontrol(Parent,H ANAL, ... 


b 


'Units' 'normalized", ... 
'BackgroundColor' (1 1 1], ... 
'Position',[0.104205 0.822404 0.330896 0.0546448], ... 
'CreateFcn',",... 
'String ,pwd,... 
‘Horizontal Alignment’, left’... 
'Style','edit', ... 
'Callback','cd(get(H_WORK,"String"));list=dir("* .mat");str={list.name};set(H_LB,"str",str)’.... 
Tag ,'EditText1^); 
— uicontrol('Parent,H ANAL, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize', 12, … 
'FontWeight','bold', ... 
‘Position’, [0.102377 0.734973 0.340037 0.0628415], ... 
'String','Select Data File‘, ... 
'Style','text', ... 
'Tag','StaticText3'); 


Н ІВ - uicontrol(Parent''H ANAL, ... 


b 


'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
"Рояйоп', [0.101786 0.355742 0.342857 0.369748] ... 
"String ,", ... | 
'CreateFcn','list=dir("*.mat");st={list.name};set(gcbo,"str" str)', ... 
'Style','listbox', ... 
'Callback','global NAME; Value-get(gcbo," Value");String-get(gcbo,"String");NAME-String( Value ];,, ... 
"Tag. Listboxl', ... 
'Value',1); 
— uicontrol('Parent;H ANAL, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.598214 0.815126 0.285714 0.0644258], ... 
'String','Select Type Analysis', ... 
Pyle text. = 
"Tag ,'StaucText1*); 


H P -uicontrol(Parent,H ANAL, ... 


'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Callback','analysis_fcn h_P', ... 

'FontSize' 12. ... 

'Position',[0.598214 0.672269 0.285714 0.092437], ... 
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'String','Performance!, ... 
'Style','radiobutton', ... 
"Tag ','Radiobuttonl', ... 
'Value',1); 

H SAC - uicontrol(Parent' H ANAL, ... 
"Units ,'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Callback','analysis fcn h ас, ... 
'FontSize',12, ... 
"Розшоп', [0.598214 0.540616 0.285714 0.092437], ... 
'String','Stability And Control’, ... 
'Style' 'radiobutton', ... 
‘Tag, Radiobutton 1"); ` 

H RD - uicontrol(Parent'' H ANAL, ... 
"Units ,' normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Callback','analysis fcn h rd', ... 
'FontSize',12, ... 
"Position', [0.598214 0.408964 0.285714 0.0952381], ... 
'String', Rotor Dynamics”, ... 
'Style','radiobutton', ... 
"Tag ,'Radiobutton 1*); 

b — uicontrol(Parent,;H ANAL, ... 
'Units' 'normalized', ... 
'Callback' 'analysis_fcn back", ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
‘Position’,[0.0982143 0.176 0.210714 0.096), ... 
'String','«« Back, ... 
"Tag, Pushbutton15; 

b = uicontrol(Parent,H ANAL, ... 

"Units', normalized, ... 
'Callback' 'analysis_fcn cnx'.... 

'FontSize', 12, ... 
'FontWeight','bold', ... 
'Position', [0.391071 0.176 0.208929 0.096], ... 
‘String’, Cancel’, ... 
"Tag', Pushbutton1”); 

b = uicontrol(Parent'H_ANAL, ... 
'Units' 'normalized', ... 
‘Callback',’global COUNT; COUNT=0;analysis_fcn cont’, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position' [0.678571 0.178667 0.208929 0:096], ... 
'String','Continue 22^, ... 
"Tag ,'Pushbutton1^); 

b = uicontrol(Parent,;H ANAL, ... 
"Units',"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.557143 0.352941 0.355357 0.557423], ... 
'Style','frame', ... 
"Таг ,Егаше!)); 


99 


assignin('base','H P'H P); 
assignin(base,' H SAC,H SAC), 
assignin('base','H RD'H RD); 
assignin(base',' H WORK',H WORK); 
assignin('base',' H LB',H LB); 
assignin('caller' 'NAME',NAME) 


100 


APPENDIX J. ANALYSIS FCN.M 


Switchyard Callback function for the analysis.m GUI function. 


function analysis fcn(Action) 


9o  Switchyard Callback function for analysis.m 
% JANRAD 98 VERSION 5.0 


global H PH SACH RDH ANAL 


cond 1=get(H_P,'Value’); 
cond2=get(H_SAC,'Value”); 
cond3-get(H RD,'Value; 


if nargin, 
switch Action 
case 'h p' 

set(H P,'Value' 1) 

ве (Н БАС "Уаше ,0) 

ве (Н RD,'Value',0) 

case 'h_sac' 

set(H_P,"Value' 0) 

set(H_SAC,'Value’, 1) 

set(H_RD,'Value',0), 

case 'h rd' 

set(H_P,'Value' 0) 

set(H_SAC,'Value',0) 

set(H RD,'Value',1) 
case 'cont' 

И сопд1-<1 
performance inPut 
close (H. ANAL) 

elseif cond2== 
stability and control 

elseif cond3== 
rotor dynamics 

else, 

error(SomeThing is Wrong in Analysis Function") 
end 
case 'cnx' 
analysis 
close (gcf) 
case 'back' 

janrad98 

close (H ANAL) 

case 'return' 

janrad98 

close all 
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case 'quit' 
quit gui 

case 'delta input' 
performance input 
close (H ANAL) 

case ‘about’ 
about janrad 

end 

end 
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APPENDIX K. PERFORMANCE INPUT.M 


This file creates the GUI that displays the 36 input parameters as loaded from a 
previously saved file or created new by user. It is called in the analysis fcn.m 


Switchyard Callback function. 


function performance input() 


% GUI window to display and/or edit input values. 
% JANRAD 98 VERSION 5.0 


% This ıs the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load performance_input 


global COUNT NAME H PERF IN S USER INPUT S PERF INPUT H MESHH POP... 
MESH STA MESH VAL AF MAIN AF TIPH _RADSPC RADSPC VALH TWH NL TWIST .. 
NL_ TWIST NL TWIST VAL 


switch COUNT 
case 0 
if ~sempty(NAME) 
eval(['load '|¡NAME]) 
unstructurel 
else 
load create_new 
structure 
end 
case 1 
unstructure ] 
end 


H PERF IN - figure(Units','normalized;, .. 

'Color',[0.8 0.8 0.8], .. 

"CreateFcn','global MESH. VAL, MESH_VAL=0;;",.. 
'Colormap',mat0, . 
"Мате" Performance Input Parameters; ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
‘Position’, [-0.003125 0.0625 0.954688 0.8625], ... 
"Iag''Fig2); 
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ћ орї = uimenu(Parent',;H PERF IN, ... 
'Label',' JANRAD Options; ... 
"Tag','uimenul*); 

c - uimenu( Parent,h opt, ... 
'Callback','performance input fcn quit. ... 
'Label','Quit JANRAD', ... 

'Tag’,, JANRAD OptionsSubuimenu 1’); 

c = uimenu('Parent',h_opt, ... 

'Callback',performance input fcn return ,... 
'Label' 'Return to Begining’, ... 
'Tag''JANRAD OptionsSubuimenul”); 

с = uimenu(Parent,h opt, ... 
'Callback',performance input fcn delta input... 
'Label','Change Input Parameters; ... 

'Enable','off ,... 
'Tag','Subuimenul'); 
c = uimenu('Parent',h_opt, ... 
'Callback',performance input fcn about',... 
'Label' 'About Janrad 98 ...', ... 
'Separator','on',... 
"Tag','Subuimenul?); 
d 7 uicontrol(Parent; H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position',[0.0212766 0.92029 0.175123 0.0483092], ... 
'String', Pressure Altitude (ft)', ... 
'Style','text', ... 
"Таг, StaticText2'); 
d 7 uicontrol(Parent''H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.217676 0.922705 0.0981997 0.0483092], ... 
'Style','edit,, ... 
‘String PA ` 
'Callback','PA-get(gcbo,"String";S USER INPUT.PA=str2num(PA);",... 
"Lag EditTextl”), 
d 7 uicontrol(Parent''H PERF IN, ... 
"Units',"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0212766 0.855072 0.175123 0.0483092], ... 
"String, Temperature (deg F)', ... 
'Style','text', ... 
'Tag','StaticText2'); 
а = uicontrol(Parent',' H PERF IN, ... 
"Units ',normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.217676 0.857488 0.0981997 0.0483092], ... 
'Style','edit', ... 
"String ,temp,... 
'Callback','temp-get(gcbo,"String");S USER INPUT.temp-str2num(temp);,... 
"Tag','EditT'ext1^); 
d 7 uicontrol(Parent','gHh PERF IN, ... 
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'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.0212766 0.792271 0.175123 0.0483092], ... 
'String',' Airspeed (kts)), ... 
‘Style text 
'Tag','StaticText2'); 
d 7 uicontrol(Parent,;H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.217676 0.792271 0.0981997 0.0483092], ... 
Style edit... 
‘String’, Vinf,... 
‘Callback',"Vinf=get(gcbo, "String");S_ USER INPUT. Vinf=str2num(Vinf);'… 
‘Tag’, EditText1'); 
d = uicontrol(Parent,;H PERF IN, ... 
"Units ,' normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position',[0.0212766 0.727053 0.175123 0.0483092], ... 
‘String’,'Gross Wt. (Ibs.)’, ... 
‘Style’, ‘text’, ... 
‘Tag’, 'StaticText2’); 
а = uicontrol(Parent' H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.217676 0.729469 0.0981997 0.0483092], ... 
'Style','edit', ... 
String, GW,... 
'Callback','GW-get(gcbo,"String);$ USER INPUT.GWe^str2num(GW);',... 
"Tag' EditText 1’); 
d = uicontrol(Parent' H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
"Розшоп' [0.0212766 0.661836 0.175123 0.0483092], ... 
'String' Rotor Vel. (rad/sec)', ... 
‘Style’, text’, … 
"Тар" ЗіапсТехі2)); 
d 7 uicontrol(Parent;H PERF IN, ... 
"Units','normalized', ... 
'BackgroundColor' [11 1], ... 
"Position' [0.217676 0.664251 0.0981997 0.0483092], ... 
'Style' 'edit', ... 
'String',omega.... 
'Callback','omega-get(gcbo,"String);S USER INPUT.omega-str2num(omega);',... 
"Tag ,'EditText1*); 

d 7 uicontrol(Parent,H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0212766 0.596618 0.173486 0.0483092], ... 
'String,'No. Azmith Sectors; ... 
Style text... 

"Tag','StaticText2); 

d 7 uicontrol(Parent'' H PERF IN, ... 

"Units ,'normalized', ... 
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'BackgroundColor',[1 1 1], ... 

'Position', [0.217676 0.599034 0.0981997 0.0483092], ... 

'Style','edit', ... 

' String ,naz,... 
'Callback''naz=get(gcbo,"String");S USER INPUT. naz=str2num(naz);',... 
"Tag ,'EditText1'); 

uicontrol(Parent;H PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0212766 0.533816 0.175123 0.0483092], ... 

'String','Coll Pitch @ .7 r/R’, ... 

'Style','text, ... 

‘Tag','StaticT ext2'); 

uicontrol(Parent' H PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor',(1 1 1], ... 

'Position',[0.217676 0.536232 0.0981997 0.0483092], ... 

'Style' 'edit', … 

'String ,thetao,... 

'Callback' 'thetao=get(gcbo,"String"),S USER _ INPUT. thetao=str2num(thetao);',... 
‘Tag’, EditText1'); 

uicontrol(Parent; H PERF IN, ... 

"Units ,' normalized', ... 

"‘BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.02 12766 0.468599 0.173486 0.0483092]. ... 
'String','Wing Area (ft^2)', ... 

'Style','text', ... 

"Tag ,'StaucText2"); 

uicontrol(Parent; H PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

Position',[0.217676 0.471014 0.0981997 0.0483092], ... 
'Style','edit', ... 

'String', Swing, ... 

'Callback' 'Swing=get(gcbo,"String");S USER INPUT. Swing=str2num(Swing);',... 
‘Tag’, EditText1'); 

uicontrol(Parent; H PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'Position', [0.0212766 0.403382 0.173486 0.0483092], ... 
'String' Wing Span (ft), ... 

'Style','text', ... 

"Tag','StaticText2'); 

uicontrol(Parent;'H PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[1 1 1], ... 

'Position' [0.217676 0.405797 0.0981997 0.0483092], ... 
'Style','edit,, ... 

'String ,bwing,... 

'Callback' 'bwing=get(gcbo,"String"),S USER INPUT bwing=str2num(bwing);",... 
"Tag', EditText1”); 


а = uicontrol(Parent;' H PERF IN, ... 


"Units','normalized', ... 
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d 


d 


d 


d 


BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.02 12766 0.34058 0.173486 0.0483092]., ... 
‘String’,"Expected Wing CL', ... 
'Style','text', ... 
'Tag’,'StaticText2'); 
— uicontrol(Parent'' H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
‘Position’, [0.2 17676 0.342995 0.0981997 0.0483092]., ... 
'‘Style’,'edit’, ... 
'String,CLwing,... 
'Callback','CLwing-get(gcbo,"String";S USER INPUT.CLwing-str2num(CL wing);',... 
‘Tag „EditText 1’); 
— uicontrol(Parent'' H PERF IN, ... 
'Units' 'normalized', ... 
"ВасКэтоипаСо]юог', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.02 12766 0.275362 0.173486 0.0483092]. ... 
'String' "Wing CDo', … 
'Style' text, 
‘Tag’, StaticText2'); 
— uicontrol(Parent','H PERF IN, ... 
"Units ,'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.217676 0.277778 0.0981997 0.0483092], ... 
'Style','edit', ... 
‘String’, CDowing.... 
'Callback','CDowing=get(gcbo,”String");S_ USER INPUT.CDowing=str2num(CDowing);’.... 
‘Tag’, EditTextl'); 
— uicontrol(Parent',' H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0.0212766 0.210145 0.173486 0.0483092], ... 
'String' Blade Twist (deg)', ... 
‘Style’,'text’, ... 
"Таг, майсТехо)); 


H TW - uicontrol(Parent;H PERF IN, ... 


'Units' 'normalized'", ... 
'BackgroundColor' [1 1 1], ... 
"Position', [0.2 17676 0.21256 0.0981997 0.0483092], ... 
'Style','edlt', ... 
'String',twist.... 
'Callback','twist-get(gcbo,"String";S USER INPUT.twist-str2num(twist);',... 
"Tag ,'EditText1*); 


H NL TWIST - uicontrol(Parent;H PERF IN, ... 


'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0562948 0.15083 0.258956 0.0452489], ... 
'String' 'Select for non-linear Blade Twist’, ... 
'Value' 0, ... 
'Caliback' ['global NL_TWIST ¡NL_TWIST=[];'.... 
‘if get(gcbo, "Value")==1,."... 
'set(H_TW,'"Enable","off"),',... 

'else,',... 
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'set(H_TW,"Enable","on"),',... 
‘end,'],... 
'Style';'checkbox', ... 
‘Tag ,Сһескбох3?; 
d = uicontrol(Parent',' H PERF IN, ... 
"'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.358429 0.922705 0.173486 0.0483092], ... 
‘String',"Blade Airfoil Type’, ... 
'Style','text', ... 
‘Tag’, 'StaticText2’); 
H POP - uicontrol(Parent,H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.75294] 0.752941], ... 
'Position', [0.549918 0.922705 0.125 0.0483092], ... 
'String','0012]HH-02|VR-12|VR-15|SC109418]|SC1095r8|Airfoil Mesh, ... 
'Style','popupmenuv', ... 
"Tag, PopupMenul', ... 
"Value" afoil, ... 
'Callback',['afoil-get(gcbo,"Value";S USER INPUT.afoil-afoil;global MESH STA MESH VAL,'... 
'if get(gcbo, "Value")--7,' ... 
'set(H MESH,"Enable","on", MESH VAL-1;... 
else... 
'set(H_MESH,"Enable","off"),',... 
‘end,']); 
d — uicontrol(Parent,;H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.359263 0.855204 0.175026 0.0467572], ... 
'String','Begin mesh at (r/R)', ... 
'Style','text', ... 
'Tag’,'StaticText2'); 
H MESH - uicontrol(Parent''H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
"Position' [0.548618 0.855204 0.09826 0.0482655], ... 
'Style','edit', ... 
'String,MESH STA,.. 
'Enable' 'off.... 
"Callback' [... 
'MESH STA-get(gcbo,"String");',... 
'performance input fcn mesh'],... 
"Tag ,'EditText1*); 
d = uicontrol(Parent;H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.35824 0.791855 0.175026 0.0467572], ... 
'String ,'No. Blades’, ... 
‘Style’, ‘text’, ... 
"Tag ,'StaticText2; 
а = uicontrol(Parent; H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
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'Position',[0.549918 0.792271 0.0981997 0.0483092), ... 
'Style' 'edit', ... 
‘String’,b.... 
'Callback','b-get(gcbo,"String);S USER INPUT.b-str2num(b);',... 
"Tag ,'EditText1); 
а = uicontrol(Parent',' H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position',[0.358429 0.731884 0.175123 0.0483092], ... 
‘String’, "Blade Radius (ft.)’, ... 
'Style' text”, ... 
"Таг, StaticText2”); 
а = uicontrol(Parent;H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor' (1 1 1], ... 
'Розшоп', [0.549918 0.729469 0.0981997 0.0483092], ... 
'Style','edit', ... 
"String, R,... 
'Callback','R-get(gcbo,"String^);S USER INPUT.R-str2num(R);,... 
'Tag',‚EditTextl'); 
d = uicontrol('Parent',A_PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.358429 0.664251 0.175123 0.0483092], ... 
'String','Hinge Offset (ft.)', ... 
'Style','text', ... 
'Tag', StaticText2”); 
d = uicontrol(Parent' H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
Position',[0.549918 0.664251 0.0981997 0.0483092], ... 
'Style','edit', ... 
‘String’,e,... 
'Callback','e=get(gcbo,"String");S_ USER _INPUT.e=str2num(e);’.... 
"Tag ,'EditText1*); 
d 7 uicontrol(Parent';' H PERF IN, ... 
'Units' 'normalized", ... 
BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position',[0.358429 0.601449 0.175123 0.0483092], ... 
'String' 'Non-Aero Part (ft.)', ... 
'Style','text', ... 
'Tag’,'StaticText2'); 
d = uicontrol(Parent;H PERF IN, ... 
“Опис топпаПгед,... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.549918 0.599034 0.0981997 0.0483092], ... 
'Style''edit”, ... 
'String' grip,... 
'Callback' 'grip=get(gcbo,"String");S USER INPUT. grip=str2num(grip);',... 
"Tag','EditText1^); 
а = uicontrol(Parent''H PERF IN, ... 
'Units' 'normalized'", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
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'Position',[0.358429 0.538647 0.175123 0.0483092], ... 

'String','Blade Root Chd (ft.)\, ... 

'Style','text', ... 

Таг, StaticText?2'); 

d = uicontrol('Parent',H_PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[1 1 1], ... 

'Position',[0.549918 0.536232 0.0981997 0.0483092], ... 

'Style' 'edit', ... 

'String ,rchord.,... 
'Callback' 'rchord=get(gcbo,"String");S USER INPUT. rchord=str2num(rchord);',... 

"Tag ,'EditText1'); 

d 7 uicontrol(Parent''H PERF IN, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.358429 0.471014 0.173486 0.0483092], ... 

'String','Blade Taper Ratio’, ... 

'Style','text', ... 

'Tag', StaticText2'); 

d 7 uicontrol(Parent''H PERF IN, ... 

"Units ',"normalized', ... 

'BackgroundColor',[1 1 1], ... 

'Position', [0.549918 0.471014 0.0981997 0.0483092], ... 

'Style','edit', ... 

'String .tr,... 
'Callback','tr-get(gcbo,"String");S USER INPUT.tr-str2num(tr);',... 
"Tag' EditText1”; 
d = uicontrol(Parent,' H PERF IN, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.358429 0.405797 0.175123 0.0483092], ... 

'String', Taper Starts @ (r/R)', … 

'Style','text', ... 

'Tag', Static Text2'); 

а = uicontrol(Parent',' H PERF IN, ... 

'Units',"normalized', ... 

'BackgroundColor',[1 1 1], ... 

'Position', [0.549918 0.405797 0.0981997 0.0483092], ... 

'Style','edit', ... 

‘String trst.... 
'Callback','trst-get(gcbo,"String");S USER INPUT.trst-str2num(trst);',... 
"Tag ,'EditText15; 
а = uicontrol(Parent''H PERF IN, ... 

'Units',"normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.358429 0.342995 0.175123 0.0483092], ... 
'String', Wing Eff. Factor - €‘, ... 

'Style','text', ... 

"Tag, StaticText2); 

4 = uicontrol(Parent; H PERF IN, ... 

'Units' 'normalized", ... 

'BackgroundColor' (1 1 1], ... 

'Position',[0.549918 0.342995 0.0981997 0.0483092], ... 
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'Style','edit, ... 
'String',ewIng,... 
‘Callback','ewing=get(gcbo,"String");S USER_INPUT.ewing=str2num(ewing),;’,... 
"Tag','EditText1*); 
d = uicontrol(Parent;H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.358429 0.280193 0.175123 0.0483092], ... 
'String','Blade Wt-Aero (Ibs.)', ... 
'Style','text, ... 
"Iag','StaticText2'); 
d 7 uicontrol(Parent; H PERF IN, ... 
'Units' 'normalized", ... 
"BackgroundColor',[1 1 1], ... 
"Position', [0.549918 0.277778 0.0981997 0.0483092], ... 
'Style','edit', ... 
‘String’, wblade.... 
'Callback','wblade=get(gcbo,"String");S_USER_INPUT.wblade=str2num(wblade);',... 
"Tag ,'EditText1*); 
d = uicontrol(Parent; H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.358429 0.21256 0.175123 0.0483092], ... 
"Бишр, Хо. Ваде Elements, ... 
'Style','text', ... 
'Tag', StaticText2”); 
H NBE - uicontrol(Parent', H PERF IN, ... 
"'Units','normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.549918 0.21256 0.0981997 0.0483092], ... 
'Style','edit', ... 
'String',nbe,... 
'Enable','on',... 
'Callback'''nbe=get(gcbo,"String");S_ USER INPUT nbe=str2num(nbe);,... 
‘Tag’, EditText1'); 
H RADSPC - uicontrol(Parent,H PERF IN, ... 
"Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.331627 0.15083 0.320368 0.0467572]. ... 
‘String’,'Select for uneven radial blade element spacing’, ... 
'"Value' 0, ... 
'Callback'['elobal NEW r ;NEW r-[];.... 
‘if get(gcbo, “Value")==1,"... 
'set(H_NBE,"Enable","off"),',... 
'else,',... 
'set(H_NBE,"Enable","on"),',... 
end ,... 
'Style' 'checkbox', ... 
'Tag' Checkbox2”); 
а = uicontrol(‘Parent',}H_ PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.708291 0.924585 0.172979 0.0482655], ... 
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‘String, Blade Lift Curve Slope’, ... 
'Style','text', ... 
"Tag','StaticText2"); 
d = uicontrol('Parent' H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
"Position', [0.899693 0.927602 0.09826 0.0482655], ... 
'Style','edit', ... 
'String',a,... 
'Callback' 'a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);',... 
"Tag ,'EditText1*); 
d 7 uicontrol(Parent''H PERF IN, ... 
'Units' 'normalized", ... 
‘BackgroundColor',[0.752941 0.752941 0.752941]. ... 
'Position', [0.708291 0.855204 0.175026 0.0482655], ... 
'String','Auxillary Thrust (lbs)', … 
'Style' text. … 
‘Tag''StaticText2'); 
а = uicontrol('Parent',H_PERF IN, … 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Роѕійоп!, [0.902764 0.856712 0.09826 0.0482655], ... 
'Style','edit', ... 
'String', Taux,... 
'Callback','Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2num(Taux);',... 
'Tag','EditText1'); 
а = uicontrol('Parent'H PERF IN,... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',6, ... 
"Position', [0.708291 0.790347 0.174002 0.0482655], ... 
'String','Flat Plate Area (ft^2);, ... 
'Style','text', ... 
"Tag ,'StaticText2); 
d - uicontrol(Parent' H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Position',[0.902764 0.791855 0.09826 0.0482655], ... 
'Style' 'edit', ... 
‘String’, Afh.... 
'Callback','Afh-get(gcbo,"String);S USER INPUT.Afh-str2num(Afh);',... 
'Tag''EditText 1"); 
а = uicontrol(Parent',' H PERF IN, ... 
"'Units',"normalized', ... 
'BackgroundColor', [0.75294] 0.752941 0.752941], ... 
‘Position’, [0.708291 0.726998 0.174002 0.0482655], ... 
'String','Vert. Proj Area (ft"2)', ... 
'Style''text', … 
‘Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.902764 0.728507 0.09826 0.0482655], ... 
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'Style','edit', ... 
'String',Afv.... 
'Callback''Afv=get(gcbo,"String");S_ USER INPUT. Afv=str2num(Afv);'… 
"Tag ,'EditText1^); 
d 7 uicontrol(Parent'' H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.708291 0.662142 0.175026 0.0482655], ... 
'String' "Vert. Tail Area (ft2), ... 
'Style' West, 
'Tag' StaticText2”; 
d 7 uicontrol(Parent,;H PERF IN, ... 
"Units','normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Position' [0.902764 0.66365 0.09826 0.0482655], ... 
'Style','edit', ... 
'String' Svert,... 
'Callback' 'Svert=get(gcbo,"String");S_ USER INPUT. Svert=str2num(Svert);',... 
'Tag' EditTextl”); 
d = uicontrol('Parent' H PERF IN, ... 
"Units', normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.708291 0.597285 0.175026 0.0482655], ... 
'String',' Vert. Tail Span (ft), ... 
'Style' text”, ... 
"Tag ,'StaticText2; 
d = uicontrol(Parent''H PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
"Position" [0.902764 0.598793 0.09826 0.0482655], ... 
'Style''edit”, ... 
'String bvert,... 
'Callback','bvert-get(gcbo," String";S USER INPUT .bvert=str2num(bvert); … 
'Tag' EditText1”; 
а = uicontrol('Parent',H_PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
"Position', [0.708291 0.532428 0.175026 0.0482655], ... 
'String' “Vert. Tail CL”, ... 
'Style' text”, ... 
'Tag’,'StaticText2’); 
а = uicontrol('Parent',‚H_ PERF IN, ... 
"Units','normalized', ... 
'BackgroundColor', [1 1 1], ... 
‘Position’,[0.902764 0.535445 0.09826 0.0482655], ... 
'Style','edit', ... 
'"String',CLvert,... : 
'Callback','CLvert-get(gcbo,"String";S USER INPUT. CLvert=str2num(CLvert);'.... 
‘Tag „EditText 1’); 
а = uicontrol('Parent' H_PERF_IN, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
"Position', [0.708291 0.46908 0.175026 0.0482655], ... 
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'String',' Vert. Tail CDo', ... 
'Style','text', ... 
'Tag’,'StaticText2'); 

а = uicontrol(Parent;H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor', [1 1 1], ... 
'Position', [0.902764 0.470588 0.09826 0.0482655], ... 
'Style','edit', ... 

‘String’, CDovert.... 
'Callback','CDovert-get(gcbo,"String";S USER INPUT.CDovert-str2num(CDovert);',... 
"Tag ','EditText1*); 
d- uicontrol(Parent;H PERF IN, ... 
"Units ,'normalized', ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
'Position', [0.708291 0.404223 0.175026 0.0482655], ... 
'String','Horiz. Tail Area (ft“2)', … 
'Style','text', ... 
"Tag ','StaticText2?); 
а = uicontrol(Parent'' H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.902764 0.405732 0.09826 0.0482655], ... 
'Style','edit', ... 
‘String’, Shoriz.... 
'Callback' 'Shoriz=get(gcbo,"String'");S USER INPUT Shoriz=str2num(Shoriz);"... 
"Tag", 'EditText1/); 
d — uicontrol(Parent,H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position', [0.708291 0.339367 0.175026 0.0482655], ... 
'String','Horiz. Tail Span (ft), ... 
"Style" ‘text’, ... 
Тар”, StaticText”); 
d = uicontrol(Parent' H PERF IN, ... 
'Units','normalized', ... 
'BackgroundColor',[1 1 1], ... 
"Position', [0.902764 0.342383 0.09826 0.0482655], ... 
‘Style’, ‘edit’, ... 
‘String’ bhoriz.... 
'Callback' 'bhoriz=get(gcbo,"String");S USER INPUT bhoriz=str2num(bhoriz);",... 
‘Tag’, EditText1'); 
а = uicontrol(Parent,H PERF IN, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.708291 0.276018 0.175026 0.0482655], ... 
'String','Horiz. Tail CL”, ... 
‘Style text 
'Tag','StaticText2'); 
а = uicontrol(‘Parent',H_PERF IN, … 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.902764 0.277526 0.09826 0.0482655], ... 
'"Style','edit', ... 
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'String ,CLhoriz,... 
'Callback','CLhoriz-get(gcbo,"String);S USER INPUT.CLhoriz-str2num(CLhoriz),,... 
‘Tag’, EditText1'); 
uicontrol(Parent'' Hd PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0,752941 0.752941], ... 
'Position', [0.708291 0.211161 0.175026 0.0482655], ... 
'String','Horiz. Tail CDo’, ... 
'Style','text', ... 
'Tag','StaticText2'); 
d = uicontrol('Parent',H_PERF IN, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.902764 0.211161 0.09826 0.0482655], ... 
'Style','edit', ... 
'String',CDohoriz.... 
'Callback','CDohoriz=get(gcbo,"Stnng");S_USER_INPUT.CDohoriz=str2num(CDohoriz);',... 
'Tag', EditTextl'); 
а = uicontrol(Parent;H PERF IN, ... 
"Units 'normalized!', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.663255 0.155354 0.163767 0.0392157], ... 
'String','Select Tail Rotor Type’, ... 
'Style','text', ... 
‘Tag','StaticT ext 1’); 
Н ТК TYPE = uicontrol(‘Parent',H_PERF IN, … 
"Units ,normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position',[0.83521 0.137255 0.158649 0.0558069], ... 
'String','ConventionaljFan_In-TailjNotar', ... 
"СаПЬаск", |... 
Чре(Н TR TYPE, "Value")--1,'... 
tailrot-1;'... 
‘elseif get(H TR. TYPE, "Value")--2,'... 
'tailrot=2;"... 
'elseif get(H_TR_TYPE, "Value")==3,"... 
'tailrot=3;'... 
end... 
"5 USER INPUT .tailrot=tailrot;'],... 
'Style' 'popupmenu!, ... 
"Таг, РорирМепи?,... 
'Value',1); 
H DISK = uicontrol('Parent',H_PERF IN, ... 
'Units' 'normalized", ... 
'"BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.663255 0.0935143 0.268168 0.0482655], ... 
'String' 'Horiz. Tail Under Main Rotor Disk‘, ... 
'Style','checkbox', ... 
'Tag', Checkboxl', ... 
"Value" 0, ... 
'CreateFcn' 'taildisk=2;', ... 
'Callback',[... 
if get(H_DISK, "Value")==1,'... 


d 
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'taildisk=1;'... 
[Jie 
taildisk-2;'... 
end. 
'S USER INPUT .taildisk-taildisk;']); 
а = uicontrol(Parent,; H PERF IN, ... 
'Units' 'normalized'", ... 
'Callback' 'performance_input_fcn back‘, ... 
'FontSize' 12, … 
'FontWeight','bold', ... 
'Position', [0.1 11566 0.00452489 0.163767 0.081448], ... 
"Бшше, << ВасК,... 
"Tag, Pushbutton1*); 
d 7 uicontrol(Parent,;H PERF IN, ... 
'Callback','performance input fcn print',... 
“ив, поппапгед,... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position',[0.318321 0.00452489 0.163767 0.081448], ... 
'String','Print Screen), ... 
"Tag ,'Pushbutton2); 
а = uicontrol(Parent' H PERF IN, ... 
'Callback',performance input fcn cnx’... 
'Units' 'normalized', ... 
'FontSize', 12, ... 
'"FontWeight,'bold', ... 
"Position',[0.525077 0.00452489 0.163767 0.081448], ... 
Stong Cancel ... 
"Tag','Pushbutton3’); 
а = uicontrol('Parent;H PERF IN, ... 
'Units' 'normalized', ... 
‘Callback',[ ... 
'global REGIME PICK S PERF INPUT RADSPC VAL NL TWIST VAL,PICK-20;REGIME?^O;, ... 
'S PERF INPUT-S USER INPUT;RADSPC VAL-0;NL TWIST VAL-O;... 
performance input fcn cont], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.733879 0.00452489 0.163767 0.081448], ... 
‘String’,'Continue >>", ... 
"Tag ,'Pushbutton4"); 


assignin(base',' H DISK'H DISK); 
assignin('base','S USER INPUT',S USER INPUT); 
assignin('base','S PERF INPUT'S PERF INPUT); 
assignin(‘base’,"H_ NBE',H NBE); 

assignin(‘base’,'H MESH H MESH); 
assignin(‘base’,"H_RADSPC',H RADSPC); 
assignin(‘base','H_TW',H_TW); 

assignin('base', CH NL TWIST,H NL TWIST); 
assignin('base', Ho ШЕ ИРЕ Н TR TYPE) 
assignin('base','H _POP', H _POP); 
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APPENDIX L. PERFORMANCE INPUT FCN.M 


Switchyard Callback function for the performance input.m GUI function. 


function performance input fcn(Action) 


% Switchyard Callback function for performance input. m 
% JANRAD 98 VERSION 5.0 


global H. PERF INH IT METH S. PERF INPUT S USER INPUT H BLD ELH AF MESH 
H_RADSPC... 
RADSPC_VAL NEW_rReffH_NL_TWIST NL_TWIST NL_TWIST_VAL H_COMP TR... 
H AUX E DRNEW_AUX VAL H FIX TPPFIX TPP_VALS FIT TR_INPUT... 
S NOTAR TR INPUT AF MAIN AF TIP MESH STA MESH VAL 


S USER INPUT-S PERF INPUT; 
if nargin, 
switch Action 
case 'cont' 
if isempty(getfield(S_PERF INPUT 'PA”)|... 
getfield(S_PERF_INPUT,'temp'))... 
getfield(S_PERF_INPUT,'Vinf))... 
gettheld(S PERF. INPUT,'GW^)|... 
getfieldS PERF INPUT,'omega")... 
getfield(S PERF INPUT,'naz’)|... 
getfield(S_ PERF INPUT, 'thetao')... 
getfield(S PERF _INPUT,'Swing’)|... 
getfield(S PERF INPUT, 'bwing’)|... 
getfield(S PERF _INPUT,'CLwing’)... 
getfield(S PERF INPUT,'CDowing’)|... 
getfield(S PERF INPUT,'ewing’)|... 
getfield(S_PERF INPUT,'afoil’)|... 
getfield(S PERF INPUT,'a’)... 
getfield(S PERF INPUT,D’)... 
getfield(S_ PERF INPUT,'R’)]... 
getfield(S PERF INPUT,'e’)|... 
getfield(S PERF INPUT,'gnp’)|... 
getfield(S PERF INPUT, 'rchord’)|... 
getfield(S_PERF_INPUT,'tr’)... 
getfield(S PERF INPUT, 'trst'’)|... 
getfield(S PERF INPUT, 'twist'’)... 
getheld(S PERF INPUT;,'wblade?)... 
gettield(S PERF INPUT;'nbe?)... 
getfield(S PERF INPUT "Taux. 
getfield(S PERF INPUT,'Afh’)|... 
getfield(S PERF INPUT, 'Afv”)|... 
getfield(S_ PERF INPUT,'Svert’)... 
getfield(S_ PERF INPUT, 'bvert'))... 
getfield(S PERF INPUT,'CLvert')|... 


117 


getfield(S_PERF_INPUT,'CDovert')|... 
getfield(S PERF INPUT,'Shoriz)|... 
getfield(S PERF INPUT 'bhoriz')|... 
getfield(S PERF INPUT) 'CLhoriz')!... 
getfield(S PERF INPUT,'CDohoriz)); 
empty boxes 
end 
if get(H RADSPC,'Value)--1 
RADSPC VAL-1; 
end 
if get(H NL TWIST,'Value)--1 
NL TWIST-1; 
end 
compound tailrotor 
close (H. PERF IN) 
case 'cnx' 
performance input 
close (gcf) 
case 'back' 
analysis 
close (H PERF IN) 
case 'print' 
set(gcf,'PaperOrientation'," landscape") 
set(gcf, 'PaperPosition’,[.5 .5 10 7.5]) 
print -dwinc 
case ‘return’ 
janrad98 
close all 
case ‘quit’ 
quit gui 
case 'about' 
about janrad 
case 'mesh' 
airfoil mesh 
сазе ok 
close (H AF MESH) 
end 


end 
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APPENDIX M. PERFORMANCE OUTPUT.M 


This file creates the GUI to display the calculated results from a previously saved 


input file or newly created user input. It is call in Perf.m. 


function performance output() 


% GUI window to display Janrad performance output. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
96 are re-created. This may cause problems with any callbacks written to 

9o depend on the value of the handle at the time the object was saved. 

Фо 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load performance_output 


global COUNT H PERF OUT S PERF OUTPUT S USER INPUTH SAVE ... 
Н datainH dataout H. vecdata H. check1 H. check2 H check OUT COUNT 


COUNT=1; 


H PERF OUT = figure('Units','normalized', … 

'Color',[0.8 0.8 0.8], ... 

'Colormap',mat0, ... 

'Name' “Performance Output", ... 

'NumberTitle','off', ... 

'PointerShapeCData',matl, ... 

"Position',[-0.003125 0.05625 0.954688 0.86875], ... 
'Tag', Fig 1’); 

b - uimenu(Parent'' H PERF OUT, ... 

'Label', JANRAD Options), ... 
'Tag','uimenul'); 

с = uimenu('Parent',b, ... 
'Callback',performance output fcn quit', ... 
'Label' 'Quit JANRAD', ... 

'Tag',, JANRAD OptionsSubuimenu 1’); 
с = uimenu('Parent',b, ... 
'Callback',performance output fcn return',... 
'Label','Return to Begining’, ... 
'Tag''JANRAD OptionsSubuimenu 1"); 
с = uumenu( Parent b, ... 
'Callback','performance output fcn delta input',... 
Label Change Input Parametere, … 
'Tag','Subuimenul'); 
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c 7 uimenu( Parent' b, ... 
'Callback',performance output fcn about ,... 
'Label''About Janrad 98 ...', ... 
'Separator','on',... 
Tag ,'Subuimenul); 
b = uicontrol('Parent',H_PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294 ] 0.752941 0.752941], ... 
'FontSize',10, ... 


Position',[0.0310966 0.925659 0.327332 0.0383693], ... 


'String','Fuselage Drag (Ibs.)', ... 
'Style','text', ... 
'Tag','StaticTextl'); 
b = uicontrol(Parent',' H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.925659 0.0981997 0.0383693], ... 
'String,S PERF OUTPUT Dfuse, ... 
Sí vile text, 
Tag','StaticText1"; 
b 7 uicontrol('Parent'' HB PERF OUT, .. 
'Units' 'normalized", ... 
'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',10, ... 


'Position',[0.0310966 0.872902 0.327332 0.0383693], ... 


'String','Rotor Drag (1bs.), ... 
'Style','text', ... 
"Tag''StaticText1^); 
b 7 uicontrol(Parent;H PERF OUT, ... 
"Units ,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


Position', [0.376432 0.872902 0.0981997 0.0383693], ... 


'String',S PERF OUTPUT Hrotor, ... 
'Style' text, ... 
"Tag','StaticTextl'); 

b = uicontrol(Parent,H PERF OUT, .. 
'Units‘,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 


'Position', [0.03 10966 0.817746 0.327332 0.0383693], ... 


'String' Wing Lift (lbs.)', ... 
'Style','text', ... 
‘Tag, StaticText 1"); 
b = uicontrol(Parent'' H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


'Position', [0.376432 0.817746 0.0981997 0.0383693], ... 


'Sting,S PERF OUTPUT.Lwing, ... 
'Style','text', ... 
"Tag ,'StaticText1'); 
b = uicontrol(Parent',' H PERF OUT, ... 
‘Units’, ‘normalized’, ... | 
‘BackgroundColor’, [0.752941 0.752941 0.752941]. ... 
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b 


b 


b 


b 


b 


b 


b 


= 
— 


= 
— 


'FontSize", 10, ... 
'Position',[0.0310966 0.76259 0.327332 0.0383693], ... 
'String',"Wing Drag (lbs.)', ... 
'Style','text', ... 

"Tag ,'StaticText1^); 


uicontrol('Parent',H_PERF OUT, … 


'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.376432 0.76259 0.0981997 0.0383693], ... 
'String,S PERF OUTPUT .Dwing, ... 
‚style text... 

'Tag' 'StaticTextl”; 


uicontrol('Parent',H_PERF OUT, … 


'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize', 10, ... 


'Position',[0.03 10966 0.709832 0.327332 0.0383693], ... 


'String','Horizontal Tail Lift (Ibs.)', ... 
'Style','text', ... 
'Tag' 'StaticTextl'); 


uicontrol('Parent',H_ PERF OUT, ... 


'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


'Position', [0.376432 0.707434 0.0981997 0.0383693], ... 


‘String’,S PERF OUTPUT.Lhorz, ... 
'Style','text', ... 
"Tag','StaticText1'); 


uicontrol(Parent;H PERF OUT, … 


"Units ,' normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize' 10, ... 


‘Position’,[0.03 10966 0.654676 0.327332 0.0383693], ... 


'String','Horizontal Tail Drag (Ibs.)', ... 
'Style','text', ... 
'Tag','StaticTextl'); 


uicontrol(‘Parent',H_PERF OUT, … 


'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


'Position',[0.376432 0.654676 0.09819977 0.0383693], ... 


'Style','text', ... 


— 
— 


'String, S PERF OUTPUT .Dhoriz, ... 
"Tag ,'StaticText1'); 


uicontrol(Parent'H PERF OUT, ... 


"Units ,'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize' 10, ... 

"Position', (0.03 10966 0.59952 0.327332 0.0383693], ... 
'String',' Vertical Tail Lift (Ibs.)', ... 

'Style','text', ... 

"Iag','StaticText1'); 
uicontrol(Parent,'H PERF OUT, ... 

'Units' 'normalized", ... 

'ВасКртоипаСо]ог', [0.752941 0.752941 0.752941], ... 
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'Position', [0.376432 0.59952 0.0981997 0.0383693], ... 
'Sting,S PERF OUTPUT.L vert, ... 
'ЗЫе' Чехе, ... 
"Tag','StaticText1*); 
b = uicontrol(Parent';H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
'Position', [0.0310966 0.546763 0.327332 0.0383693], ... 
'String' "Vertical Tail Drag (Ibs.)', ... 
'Style','text', ... 
"Tag, StaticText1*); 
b 7 uicontrol(Parent,H PERF OUT, ... 
"Units', normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'"Position' [0.376432 0.546763 0.0981997 0.0383693], ... 
'String;, S PERF OUTPUT.Dvert, ... 
'Style' ‘text’, … 
‘Tag 'StaticText 1’); 
b = uicontrol('Parent',H_PERF OUT, … 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 


'Position',[0.0310966 0.491607 0.327332 0.0383693], ... 


'String' "Tip Path Angle (deg)', ... 
'Style','text', ... 
"Таг, ЧапсТехи)); 
b = uicontrol(Parent,;H PERF OUT, ... 
"Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


‘Position’, [0.376432 0.491607 0.0981997 0.0383693], ... 


'String,S PERF OUTPUT .ailphaT, ... 
'Style','text', ... 
"Tag, StaücText1'); 
b = uicontrol(Parent;H PERF OUT, .. 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 


'Position',[0.0310966 0.436451 0.327332 0.0383693], ... 


'String' 'Rotor Coning Angle (deg)', ... 
'Style','text', ... 
"Tag", Static Text1*); 
b 7 uicontrol(Parent,H PERF OUT, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.75294] 0.752941 0.752941], ... 


Position', [0.376432 0.436451 0.0981997 0.0383693], ... 


'String, S PERF OUTPUT. betao, ... 
Style text, . 
'Tag','StaticTextl'); 
b 7 uicontrol(Parent;H PERF OUT, ... 
"Units, normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
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‘Position’, [0.03 10966 0.383693 0.327332 0.0383693], ... 
'String', Location of Main Thrust (r/R)', ... 
'Style' text”, ... 
'Tag','StaticText1'); 
b = uicontrol(Parent,H PERF OUT, ... 
"Units ,'normalized', ... 
"BackgroundColor' [0.752941 0.752941 0.752941], ... 


‘Position’, (0.376432 0.383693 0.0981997 0.0383693], ... 


'String;,S PERF. OUTPUT 112, ... 
'Style text. … 
‘Tag','StaticText 1’); 
Б = uicontrol(Parent;H PERF. OUT, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 


'Position', [0.03 10966 0.328537 0.327332 0.0383693), ... 


'String','1st Lat. Cyclic Term - Al’, ... 
'Style' 'text', ... 
"Iag','StaticText1*); 
b 7 uicontrol(Parent''H PERF OUT, ... 
'Units ,'normalized', ... 
'BackgroundColor' [0.7 52941 0.752941 0.752941], ... 
'Position', [0.376432 0.328537 0.0981997 0.0383693], ... 
"бшпр,5 PERF OUTPUT .thetalc, ... 
'Style','text', ... 
"Tag, StaücText1'); 
b — uicontrol(Parent;H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, … 
‘Position’, [0.03 10966 0.273381 0.327332 0.0383693]. ... 
'String' '1st Long. Cyclic Term - B1', ... 
'Style','text', ... 
"Tag' StaticTextl”); 
Б = uicontrol(Parent;H PERF OUT, ... 
"Units ,"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


'Position', [0.376432 0.273381 0.0981997 0.0383693], ... 


'String,S PERF. OUTPUT ..thetals, ... 
'Style' text”, ... 
"Tag','StaticTextl"); 

Б = uicontrol(‘Parent',H_PERF OUT, … 
"Units ,'normalized', ... 
'BackgroundColor', [0.752941 0.752941 07752941], ... 
'FontSize',10, ... 
"Position', [0.512275 0.923261 0.327332 0.0383693], ... 
'String','Collective Pitch (2) .7 r/R (deg), ... 
'Style' ‘text’, … 
'Tag' 'StaticTextl”); 

b — uicontrolParent;H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 


‘Position’, (0.859247 0.925659 0.0981997 0.0383693], ... 
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'String,S PERF OUTPUT thetao, ... 
'Style','text', ... 
"Tag','StaticText1*); 
b — uicontrol(Parent' H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
"Position', [0.512275 0.870504 0.327332 0.0383693], ... 
'String','Solidity (sigma), ... 
'Style','text', ... 
"Tag ,'StaticText1'); 
b 7 uicontrol(Parent;H PERF OUT, ... 
'Units' 'normalized'", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


"Position" [0.859247 0.872902 0.0981997 0.0383693], ... 


'String,S PERF OUTPUT . solidity, ... 
'Style','text', ... 
"Tag' StaticTextl”); 

b = uicontrol('Parent' H_PERF_OUT, ... 
'Units',"normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
'Position', [0.512275 0.815348 0.327332 0.0383693], ... 
'String','Disk Loading (Ibs. /ft^2), ... 
‘Style’, text”, ... 
"Tag ,'StaticText1'); 

b - uicontrol(Parent' H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position', [0.859247 0.817746 0.0981997 0.0383693] 
'String,S PERF OUTPUT. DL, ... 
'Style','text', ... 
'Tag','StaticText!'); | 

b = uicontrol(Parent' H PERF OUT, ... 
"Units','normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, ... | 
‘Position’, [0.512275 0.760192 0.327332 0.0383693], ... 
'String', Figure of Merit, ... 
'Style','text', ... 
"Tag, StaticText1*); 

b 7 uicontrol(Parent'H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position',[0.859247 0.76259 0.0981997 0.0383693], ... 
'String,S PERF OUTPUT.FM, ... 
'Style','text', ... 

'Tag’,'StaticText1'); 

b = uicontrol(Parent'H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, … 
'Position', [0.512275 0.707434 0.327332 0.0383693], ... 
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y... 


'String' 'CT/Sigma', ... 
'Style' text, ... 
'Tag','StaticTextl'); 
b 7 uicontrol(Parent;H PERF OUT, ... 
'Units', normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


Position', [0.859247 0.709832 0.0981997 0.0383693], ... 


'Suing,S PERF OUTPUT.CT sig, ... 
ЭЛЕ 7 
"Tag','StaticText1*); 

b = uicontrol(Parent;H PERF OUT, ... 
'Units',normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
'Position', [0.512275 0.652278 0.327332 0.0383693], ... 
'String','CQ/Sigma', ... 
'Style','text, ... 
"Tag, StaticText1^); 

b = uicontrol(Parent;H PERF. OUT, ... 
"Units ,' normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


'Position' [0.859247 0.654676 0.0981997 0.0383693], … 


'"String,S PERF OUTPUT.CQ sig, ... 
‘Style’, ‘text’, ... 
"Tag, StaticText1*); 

b — uicontrol(Parent;H. PERF OUT, ... 
"Units ,"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
Position',[0.512275 0.597122 0.327332 0.0383693], ... 
'String','CH/Sigma', ... 
'Style','text', ... 
"Tag','StaticText1*); 

b = uicontrol(Parent;H PERF OUT, ... 
"Units',normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position', [0.859247 0.59952 0.0981997 0.0383693}, ... 
'String,S PERF OUTPUT.CH sig, ... 
"Style, text, ... 
'Tag','StaticText 1’); 

b = uicontrol(Parent,H PERF OUT, .. 
'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize', 10, ... 
Position', (0.512275 0.544365 0.327332 0.0383693], ... 
‘String’, Tip Mach No. of Advancing Blade’, ... 
'Style','text', ... 
Таг", StaticTextl'); 

b = uicontrol(‘Parent',;}H PERF OUT, ... 
'Units' 'normalized", ... 
"BackgroundColor',[0.752941 0.752941 0.752941], ... 


‘Position’, [0.859247 0.546763 0.0981997 0.0383693], ... 


"бігіпр |5 PERF OUTPUT.Machtip, ... 
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'Style','text', ... 
'Tag','StaticTextl'); 
b = uicontrol('Parent',H_PERF OUT, ... 
'Units'‚'normalized), ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize' 10, ... 
'Position', [0.512275 0.489209 0.327332 0.0383693], ... 
'String',' Advance Ratio), ... 
Style text Ti 
'Tag','StaticText1'); 
b - uicontrol(Parent,H PERF OUT, .. 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 


'Position‘, [0.859247 0.491607 0.0981997 0.0383693], ... 


'‘String',S_PERF OUTPUT.mu, ... 
'Style','text', ... 
'Tag','StaticTextl'); 
b = uicontrol(Parent,H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
'Position', [0.512275 0.434053 0.327332 0.0383693], ... 
'String','Rotor Thrust Required - TPP (Ibs.)', ... 
"Style text. 
'Tag','StaticText1'); 
b = uicontrol(Parent,H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


'Position',[0.859247 0.436451 0.0981997 0.0383693], ... 


'String',S PERF OUTPUT T, ... 
"Style" text”, ... 
"Tag ,'StaticText1*); 

b 7 uicontrol(Parent,H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize', 10, ... 
‘Position’,[0.512275 0.381295 0.327332 0.0383693], ... 
'String','Rotor Power Required (hp)', ... 
'Style','text', ... 
"Tag, StaticText1*); 

b 7 uicontrol( Parent, H PERF OUT, … 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.859247 0.383693 0.0981997 0.0383693], ... 
'String,S PERF OUTPUT. Protor, ... 
'Style','text', ... 

Tag,'StaticText1?); 

р = uicontrol(Parent,H PERF ОЧОТ, ... 
'Units''normalized', … 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
FontSize',10, ... 
Position', [0.512275 0.326139 0.327332 0.0383693], ... 
'String',' Rotor Torque (ft.-Ibs.)', ... 
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b 


b 


b 


H checkl - uicontrol(Parent,;H PERF OUT, ... 


'Style','text', ... 
'Tag','StaticTextl'); 
- uicontrol(Parent' H PERF OUT, ... 
"'Units',"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


"Position',[0.859247 0.328537 0.0981997 0.0383693], ... 


'String;' S PERF OUTPUT ..Qrotor, ... 
'Style','text', ... 
"Tag','StatücText 1^); 
= uicontrol('Parent',H_PERF_ OUT, ... 
'Units' 'normalized', ... 
'ВасКэтоипаСо!ог', [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 
"Position',[0.512275 0.270983 0.327332 0.0383693], ... 
'String','Auxilliary Thrust (Ibs);, ... 
'Style','text', ... 
"Tag ,'StaticText1*); 
= uicontrol(Parent,' H PERF OUT, ... 
'Units',"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


"Position',[0.859247 0.273381 0.0981997 0.0383693], ... 


'Sring,S USER INPUT.Taux, ... 
'Style','text', ... 
"l'ag','StaticText1'); 


'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


'Position',[0.0310966 0.177458 0.266776 0.0479616], ... 


'String','Save Input Data as …', … 
'Style','checkbox', ... 
"Tag','Checkbox1'); 


H datain 7 uicontrol(Parent,;H PERF OUT, ... 


c 


'Units' 'normalized", ... 
'BackgroundColor', [1 1 1], ... 


'Position', [0.302782 0.177458 0.0981997 0.0479616], ... 


'FontSize',12, ... 

'Style','edit', ... 

'String',",... 

‘Callback',[... 
‘set(gcbo, "String", get(gcbo, Sne" `. 
'set(H_dataout "String", get(H_datain "String"));.'... 
'set(H vecdata,"String",get(H datain,"String"));,'... 
'set(H_check1,"Value",1);,'... 
'set(H_check2,"Value",1);,'... 
'set(H_check3,"Value",1);,”].... 

"Horizontal Alignment' 'right'... 
‘Tag’, EditText 1’); 

= uicontrol(‘Parent',H_PERF OUT, … 
"Units ,'normalized', ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 

'FontSize', 12, ... 


'Position', [0.405892 0.179856 0.0981997 0.0479616], ... 


3 


'Style','text', ... 
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‘String ,.mat’… 
‘Horizontal Alignment’ 'left'… 
'Tag' StaticText2”); 
Н check2 - uicontrol(Parent''H PERF OUT, ... 
"Units ,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0.03 10966 0.117506 0.266776 0.0479616], ... 
'String','Save Output Data as ....', ... 
'Style','checkbox', ... 
"Tag','Checkbox1); 
H dataout 7 uicontrol(Parent''H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
‘Position’, [0.302782 0.119904 0.0981997 0.04796 16], ... 
'FontSize',12, ... 
'String',"'.... 
'Style','text', ... 
'HorizontalAlignment','right',... 
‘Tag, 'StaticText 1’); 
b - uicontrol(Parent''H PERF. OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
Position', [0.405892 0.122302 0.0981997 0.04796106], ... 
"String", prf, ... 
'HorizontalAlignment','left',... 
'Style','text', ... 
"Tag','StaticText2'); 
H check3 - uicontrol(Parent,H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
"Position', [0.03 10966 0.059952 0.266776 0.0479616], ... 
'String','Save Matrix & Vector Data as ....', ... 
'Style','checkbox', ... 
Тар", СПесКЬох!); 
H_vecdata = uicontrol(Parent'H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


'Position',[0.302782 0.0623501 0.0981997 0.0479616], ... 


'FontSize',12, ... 
"Style" text”, ... 
"Horizontal Alignment' 'right”.... 
'Tag' StaticTextl”); 
b = uicontrol(Parent' H PERF OUT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941]. ... 
'FontSize' 12, … 
'Position', [0.405892 0.0647482 0.0981997 0.0479616], ... 
'String,' p.mat', ... 
'HorizontalAlignment',left'.... 
'Style','text', ... 
"Tag ,'StaticText2)); 
b 7 uicontrol(Parent' H PERF OUT, ... 
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'Units''normalized', … 
'FontSize' 12, … 
'FontWeight','bold', ... 
'Position', [0.57283 1 0.146283 0.140753 0.0815348], ... 
'String','<< Back, ... 
"Tag ,'Pushbuttonl',... 
'Callback','performance output fcn back); 
b — uicontrol(Parent' H PERF OUT, ... 
'Units' 'normalized', ... 
'FontSize' 12, … 
'FontWeight','bold', ... 
"Position', [0.74959] 0.146283 0.140753 0.0815348], ... 
'String','Options >>', … 
Tag','Pushbutton!'‘,... 
'Callback','global OUT COUNT,OUT COUNT-O;performance output fcn opt’); 
H SAVE - uicontrol(Parent''H PERF OUT, ... 
'Units','normalized), ... 
'Callback','performance_output_fen save‘, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.572178 0.0325048 0.14042 0.0803059}, ... 
'String','Save', ... 
'Tag', Pushbutton]'); 
b = uicontrol(Parent''H PERF OUT, ... 
'Callback',' performance output fcn print',... 
"Units',"normalized', ... 
FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.749344 0.0344168 0.17042 0.0803059}, ... 
'String','Print Screen), ... 
"Tag Pushbutton]'); 


assignin('base''H_datain' H datain); 
assignin('base','H dataout,H dataout); 
assignin('base','H vecdata'H vecdata); 
assignin(base','H checkl',H checkl); 
assignin(base','H check2,H check2); 
assignin(‘base’,'H_check3',H_check3); 
assignin(‘base’,"H SAVE',H SAVE); 
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APPENDIX N. PERFORMANCE OUTPUT FCN.M 


Switchyard Callback function for the performacne output.m GUI function. 


function performance output fcn(Action) 


% Switchyard Callback for performance output.m 
% JANRAD 98 VERSION 5.0 


global H PERF OUT S8 USER INPUT S PERF INPUT S PERF OUTPUT S MATR VEC... 
Н даїа Н dataout H. vecdata H. checkt H check2 H check3 ... 
H outputfileH vecfile H inputfile OUT COUNTH SAVE 


if nargin 
switch Action 
case 'back' 
close (H PERF OUT) 
S PERF INPUT=S USER INPUT; 
iteration method 
case 'opt' 
if get(H checkl,'Value')--1 
S USER INPUT=S PERF INPUT, 
S USER INPUT.Vinf-S USER INPUT. Vinf/1.68781; 
S USER INPUT.thetao=S USER INPUT .thetao* 57.3; 
S USER INPUT.twist--S USER INPUT.twist*57.3; 
filenamel=get(H_datain, String’); 
eval(['save ',filenamel, S USER INPUT']) 
end 
if get(H check2,'Value)-- 
filenamel-get(H дагаш, 5шпр); 
eval(['!copy print_templ ', filenamel ‚'.prf']) 
end 
if get(H_check3,"Value')==1 
unstructure3 
filename2-[filenamel ' p']; 
eval(['save ',filename2,' Reff r dr psi vi theta betat alpha Tpsi Npsi Mpsi DMpsi dT dN dM dD cblade 
CL CDJ) 
end 
options 
set(H_inputfile, 'String', [filenamel '.mat"]) 
set(H_outputfile,'String',[get(H_dataout,'String‘),'.prf]) 
set(H_vecfile,'String’,[get(H_vecdata,'String’),’_p.mat']) 
close (H_PERF OUT) 
case 'save' 
set(H SAVE, 'Enable''off") 
if get(H_check1,'Value')==1 
S USER INPUT=S PERF INPUT; 
S USER INPUT.Vinf=S USER INPUT. Vinf/1.68894444; 
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S USER INPUT.thetao-S USER INPUT.thetao*57.3; 
S USER INPUT.twist--S USER INPUT.twist*57.3; 
filenamel-get(H datain,'String); 
eval(['save ' filenamel,' S USER INPUT") 
end 
if get(H check2,'Value)-- 
filenamel-get(H datain,'String); 
eval(['copy print templ ', filenamel,' prf ]) 
end 
if get(H check3,'Value)--1 
unstructure3 
filename2-[filenamel ' p']; 
eval(['save ',filename2,' Reff r dr psi vi theta betat alpha Tpsi Npsi Mpsi DMpsi dT dN dM dD cblade 
CL CD"); 
end 
set(H SAVE Enable on" 
case 'print' 
set(gcf, PaperOrientation', landscape") 
set(gcf,'PaperPosition' [.5 .5 10 7.5]) 
print -dwinc 
case 'return' 
close all 
janrad98 
case 'delta input' 
close (H PERF OUT) 
performance input 
case out 
quit gui 
case 'about' 
about janrad 
end 
end 
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APPENDIX O. ITERATION METHOD.M 


This file creates GUI to select iteration method and display the status of JANRAD 
98 computations. Status comments are set in Trim.m and Perf.m. When computations 


are complete, this window 1s closed in Perf.m. 


function iteration method() 


% GUI window to select iteration method, start computational routines, 
% and display clock and performance method status. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load iteration_method 


global H IT METHH NIH ASH ALH GWH BTH BTRH SOTH WSAH RBRH RBS... 
H STATUS H. STATUS1 H STATUS2 H STATUS3 H. RADSPC RADSPC. VAL... 
Н GOH RUPTH BK H RES H MEN HOLD... 
COUNT S USER INPUT S PERF INPUT REGIME PICK … 


COUNT=1; r_ HOLD=1; 
S_USER_INPUT=S_PERF INPUT; 


Н ІТ METH = figure('Units','normalized', … 

'Color [0.8 0.8 0.8], ... 
'Colormap',mat0, ... 
'Name' 'Iteration Method", ... 
Number Tied "off ... 
PointerShapeCData', mat], ... 
Position',[-0.003125 0.0625 0.954688 0.8625], ... 
‘Tag’, Fig1'); 

H MEN 7 uimenu(Parent,H IT METH, ... 
'Label''JANRAD Options), ... 

'Tag' 'ulmenul”); 

c ulmenu( Parent H_MEN, ... 
'Callback','iteration method fcn quit, ... 
'Label' 'Quit JANRAD', ... 
‘Tag','JANRAD OptionsSubuimenu 1"); 

c- uimenu(Parent,H MEN, ... 

'Callback','iteration method fcn return',... 
'Label', Return to Begining, ... 
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'Tag', JANRAD OptionsSubuimenul'); 
с = uimenu('Parent',H_MEN,, ... 
'Callback''iteration_method_fen delta_input',... 
'Label',' Change Input Parameters), ... 
"Tag','Subuimenul?; 
с = uimenu(Parent,H MEN, ... 
'Callback','iteration method fcn about',... 
'Label',' About Janrad 98 …', … 
'Separator','on',... 
"Tag','Subuimenul); 
f = uicontrol(Parent,H IT METH, ... 
"Units, normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
‘FontWeight’, bold’, ... 
'Position',[0.0785714 0.864 0.333333 0.0533333}, ... 
'String','Choose Iteration Method, ... 
Style text... 
"Tag','StaticText1*); 
Н М = uicontrol(Parent;H IT METH, ... 
'Callback','iteration method fcn h_ni',... 
'Value',1,... 
"Units, normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 


'Position',[0.0839304 0.730015 0.333675 0.0527903], ... 


'String','No Iteration’, ... 
'Style' 'radiobutton", ... 
‘Tag','Radiobutton 1"); 
H AS = uicontrol(‘Parent',H_IT METH, … 
'Callback',iteration method fcn h as',... 
"Units ,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 


'Position',[0.0839304 0.671192 0.333675 0.0527903], ... 


'String',' Aırspeed', ... 
'Style','radiobutton', ... 
'Tag', Radiobutton2”); 
H AL - uicontrol(Parent,;H IT METH, ... 
'Callback',iteration method fcn h а!'.... 
"Units ,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.0839304 0.61086 0.333675 0.0527903}, ... 
‘String ,'Altitude', … 
'Style' 'radiobutton', ... 
'Tag', Radiobutton3”); 
H GW - uicontrol(Parent,H IT METH, ... 
'Callback',iteration method fcnh gw',.. 
"Units ,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 


Position',[0.0839304 0.550528 0.333675 0.0527903}, ... 
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‘String’,'Gross Weight’, ... 
'Style','radiobutton', ... 
"Tag ,'Radiobutton4); 
H BT - uicontrol(Parent,H IT METH, ... 
'Callback','iteration method fcn h ЪГ,... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.0839304 0.488688 0.333675 0.0542986], ... 
'String','Blade Twist‘, ... 
'Style','radiobutton', ... 
'Tag' RadiobuttonS”); 
H BTR - uicontrol(Parent;H IT METH, ... 
'Callback' 'iteration method fcn h _btr',... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, … 


'Position', [0.0839304 0.426848 0.333675 0.0542986], ... 


'String','Blade Taper Ratio’, ... 
'Style','radiobutton', ... 
'Tag', Radiobuttonó”); 

H SOT - uicontrol(Parent' H IT METH, ... 

"СаШьаск", Пегапоп method fcnh sot... 

'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 


Position',[0.0839304 0.365008 0.333675 0.0542986], ... 


'String','Start of Taper’, ... 
‘Style’, 'radiobutton’, ... 
"Таг, Radiobutton7”); 

H WSA = uicontrol(‘Parent',H_IT METH, … 

‘Callback''iteration_method fen h_wsa'… 

'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.0839304 0.303167 0.333675 0.0542986], ... 
‘String , Wing Span Area), ... 
'Style','radiobutton', ... 
"Tag', Radiobutton9”); 

H RBR - uicontrol(Parent,H IT METH, ... 
"Units ',"normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Callback',iteration method fcn h rbr,, ... 
Fontsize 12, | 
'Position', [0.0839304 0.242836 0.333675 0.0527903], ... 
'String','Main Rotor Blade Radius, ... 
'Style' 'radiobutton', ... 
"Tag','Radiobutton10^); . 

H RBS - uicontrol(Parent'!'Hd IT METH, ... 
‘Units „'normalized', … 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
‘Callback''iteration_method fen h rbs', ... 
'FontSize',12, ... 
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'Position',[0.0839304 0.182504 0.333675 0.0527903], ... 


'String','Main Rotor Speed", ... 
'Style' 'radiobutton', ... 
'Tag', Radiobutton1 1); 
f = uicontrol(Parent,H IT METH, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.482143 0.866667 0.439286 0.0533333], ... 
'String',' Analysis Status Box’, ... 
'Style','text, ... 
'Tag’,'StaticText1'); 
H STATUS - uicontrol(Parent,;H IT METH, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294] 0.752941 0.752941], ... 
'Position',[0.481576 0.690799 0.439099 0.135747), ... 
Style text... 
'FontSize',12, ... 
‘FontWeight’, bold, ... 
'HorizontalAlignment','center',... 
'String ,",... 
'Tag’,'StaticText2'); 
H_STATUS] = uicontrol(Parent’,H_IT_METH, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294] 0.75294] 0.752941], ... 
'Position', [0.483112 0.532428 0.436029 0.140271], ... 
'Style','text', ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'HorizontalAlignment ,'center',... 
"String"... 
'Tag’,’StaticText3'); 
H _STATUS2 = uicontrol(Parent',H_IT METH, … 
‘Units „'normalized', … 
'BackgroundColor',[0.752941 0.75294] 0.752941], ... 
Position',[0.484135 0.360483 0.433982 0.15083], ... 
'Style''text', ... 
'FontSize',12, ... 
‘FontWeight’, bold’, ... 
'HorizontalAlignment','center',... 
'String ,".... 
"Tag','StaticText4^; 
H STATUSS3 - uicontrol(Parent;H IT METH, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294] 0.75294] 0.752941], ... 
"Position',[0.483623 0.18552 0.435005 0.152338], ... 
'Style','text', ... 
FontSize',12, ... 
'FontWeight','bold', ... 
‘Horizontal Alignment',center‘…. 
"String ,",... 
‘Tag’, StaticText5'); 


136 


H BK - uicontrol(Parent,' H IT METH, ... 
'Units' 'normalized", ... 
'Callback',iteration method fcn back', ... 
'FontSize', 12, ... 

'FontWeight','bold", ... 

'Position',[0.0767857 0.064 0.178571 0.072], ... 
"String" '<< Back, ... 

"Tag ,'Pushbutton1*); 

H GO = uicontrol(Parent,H IT METH, ... 
'Units' 'normalized", ... 

'Callback','elobal PERF OUTPUT;REGIME?-Qj;iteration method fcn anal, ... 
FontSize',12, ... 
'FontWeight','bold', ... 
‘Position’, [0.301786 0.0613333 0.178571 0.072], ... 
'String','Analyze', ... 
"Tag,'Pushbutton2?; 
H RUPT - uicontrol(Parent,H IT. METH, ... 
'Callback',iteration method fcn interrupt... 
'Units' 'normalized', ... 
'FontSize',12, ... 
'FontWeight' 'bold", ... 
'Position',[0.528571 0.0613333 0.178571 0.072], ... 
'String','Interrupt,, ... 
'Enable','off,... 
‘Tag ,Pushbutton3’); 
H RES - uicontrol(Parent,H IT METH, ... 
'Callback',iteration method fcn resume',... 
'Units' 'normalized', ... 
'FontSize',12, ... 
‘FontWeight', bold’, ... 
‘Position’, [0.755357 0.0613333 0.178571 0.072], ... 
‘String’,"Resume’, ... 
‘Enable’, oft … 
'"Tag', Pushbutton4'); 
f = uicontrol(Parent;H IT METH, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position',[0.0655067 0.173454 0.37564 0.769231], ... 
'Style','frame!, ... 
"Tag ,Framel); 
f - uicontrol(Parent,H IT METH, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position', [0.476786 0.176 0.45 0.768], ... 
'Style',frame', ... 
"Tag', Frame2”); 


assignin(base','H NI,H NI) 
assignin(base'' H AS H AS); 
assignin(base','H AL,H AL), 
assignin(‘base’,,H_GW',H_ GW); 
assignin(base, H BT,H BT); 
assignin(base',' H BTR,H BTR); 
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assignin('base;'H SCT H SOT), 
assignin(base','H WSA'H WSA); 
assignin(‘base’,"H_RBR',H RBR); 
assignin(‘base’,"H_RBS',H_RBS); 
assignin(‘base’,'H_GO',H_GO); 
assignin(‘base’,"H_RUPT',H_RUPT); 
assignin(‘base’,"H_BK',H_ BK); 
assignin(base',H RES'H RES); 
assignin('base','H MEN',H MEN); 
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APPENDIX P. ITERATION METHOD FCN.M 


Switchyard Callback function for the iteration method.m GUI function. 


function iteration method fcn(Action) 


96 Switchyard Callback for iteration method.m 
% JANRAD 98 VERSION 5.0 


global H_IT METHH NIH ASH ALH GWH BTH BTRH SOTH WSAH RBRH RBS … 
H STATUS H STATUS1 H_STATUS2 H_STATUS3 NEW. rH _MESHH _POP... 
H сон BKH RES H RUPT H MEN RADSPC VAL H RADSPC... 
H _HIGE Н ІТ. BOXH _ASPECT H_ASPECT EDITH NL TWIST NL TWIST NL TWIST VAL... 
S PERF. INPUT S . USER INPUT S PERF OUTPUT PICK REGIME H_ _MESH MESH VAL... 
MESH STA AF_ MAIN AF TIP NEW TPP NEW AUX VALH FIX TPP... 
Н AUX E DR S FIT TR INPUTS _NOTAR_ TR_INPUT FIX_ TPP_ VAL 


if nargin, 
switch Action 
case 'h ni' 
set(H NI,'Value',1) 
set(H AS,'Value',0) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H RBR,'Value',0) 
set(H_RBS,'Value',0) 
PICK=0; 
case 'h as' 
set(H  NI,'Value',0) 
set(H AS,'Value',1) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
зе (Н RBR,'Value',O) 
set(H_RBS,'Value',0) 
PICK=1; 
case 'h_al' 
set(H_NI'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'Value',1) 
set(H GW,'Value',0) 
set(H BT,'Value',0) 
set(H BTR,'Value',0) 
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set(H_SOT,"Value' 0) 
set((H_WSA,'Value’,0) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value',0) 
PICK =2; 
case 'h_gw' 
set(H NI,'Value',0) 
set(H AS,'Value',0) 
бе(Н АГ, Уаше,0) 
set(H_GW,'Value’, 1) 
set(H BT,' Value',0) 
бе(Н ВТК,Уаше,0) 
set(H SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value',0) 
PICK=3; 
case 'h bt 
ве (Н NI,'Value',0) 
set(H_AS,'Value',0) 
set(H AL,'Value,0) 
бе(Н GW,'Value',0) 
set(H BT,'Value',1) 
set(H BTR,'Value On 
set(H_SOT,'Value',0) 
set(H WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H RBS,'Value',0) 
PICK=4; 
case 'h_btr 
бе(Н МІ,Уаше,0) 
бе (Н А5,"Уаше ,0) 
set(H_AL,'Value’,0) 
set(H GW,'Value',0) 
set(H BT,'Value',0) 
set(H BTR,'Value',1) 
set(H SOT,'Value',0) 
ве (Н WSA,'Value',0) 
set(H RBR,' Value',O) 
set(H  RBS,' Value',0) 
PICK=S; 
case 'h_sot' 
set(H_NI,'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'Value',0) 
set(H_GW,'Value’,0) 
set(H_BT,'Value’,0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',1) 
set(H WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H RBS,'Value',0) 
PICK=6; 


case'h wsa' 
set(H NI,'Value',0) 
set(H_AS,'Value',0) 
set(H AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value’, 1) 
set(H_RBR,'Value',0) 
set(H_RBS,"Value’,0) 
PICK=7; 
case 'h rbr' 
set(H NI,'Value',0) 
set(H AS,'Value',0) 
set(H AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',1) 
set(H_RBS,'Value',0) 
PICK=8; 
case 'h rbs' 
зе (Н NI,'Value',0) 
зе (Н А5,"Уаше,0) 
set(H AL,' Value',O) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR, 'Value’,0) 
set(H RBS,'Value',1) 
PICK=9; 
case ‘back' 
if RADSPC_VAL== 
close (H_IT_METH) 
blade_element 
else performance_input 
if get(H_ POP, Value')==7 
set(H MESH,'Enable','on") 
MESH VAL-1; 
end 
close (H IT METH) 
end 
case 'anal' 
set(H  GO,'Enable','off); 
set(H RUPT;,'Enable','on; 
set(H  BK,'Enable','off); 
зе (Н КЕ5 Епа е ,оВ); 
ве (Н MEN,'Enable','off); 
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if get(H NI,'Value)--1 
Perf 
elseif get(H AS,'Value)-- 
iteration parameters 
set(H_IT BOX, 'String 'AIRSPEED') 
elseif get(H_AL,'Value)==1 
iteration parameters 
set(H IT BOX, String, ALTITUDE) 
elseif get(H GW,'Value)--1 
iteration parameters 
ifS PERF INPUT.PA--0&S PERF INPUT.Vinf—0 
set(H HIGE,'Enable','on') 
end 
set(H IT BOX;'String,' GROSS WEIGHT?) 
elseif get(H BT,'Value)--1 
iteration parameters 
ве (Н IT BOX,' String, BLADE TWIST) 
elseif ге (Н BTR,'Value)--1 
iteration parameters 
set(H IT BOX;,'String, BLADE TAPER RATIO?) 
elseif get(H_SOT 'Value”)=1 
iteration parameters 
ве (Н IT BOX,'String, START OF TAPER) 
elseif get(H WSA,'Value)—1 
iteration parameters 
set(H IT BOX;'Strng,"WING SPAN AREA?) 
set(H_ASPECT, Enable''on') 
set(H ASPECT EDIT,'Enable','on") 
elseif get(H RBR,'Value)--1 
iteration parameters 
ве (Н TT BOS Song ROTOR BLADE RADIUS? 
elseif get(H RBS,'Value)-—1 
iteration parameters 
set(H IT BOX;'String,'ROTOR BLADE SPEED(RAD/SEC)') 
end 
case ‘interrupt’ 
set(H GO,'Enable','off); 
set(H RUPT,'Enable','off)); 
set(H BK,'Enable','off"); 
set(H. RES, 'Enable','on); 
set(H МЕМ, ЕпаЫе' оп”); 
uiwait, 
case 'resume' 
set(H_GO,'Enable' 'off); 
set(H_RUPT, Enable’,’on’); 
set(H_BK,'Enable’, off); 
set(H_RES,'Enable' 'off); 
set(H MEN,'Enable','off); 
uiresume; 
case 'quit' 
quit_gui 
case 'retum' 
close (H IT METH) 
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janrad98 
case 'delta input' 
close (H IT METH) 
performance input 
case 'about' 
about janrad 
end 
end 
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APPENDIX Q. ITERATION PARAMETERS.M 


This file creates GUI to enter iteration parameters. It is called by the Switchyard 


Callback function iteration method fcn.m. 


function iteration parameters() 


% GUI window to enter iterative steps. 
% JANRAD 98 VERSION 4.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


function iteration_parameters() 


% GUI window to enter iterative steps. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load iteration_parameters 


global H IPH HIGE H IT BOXH ASPECT H ASPECT EDIT H MEN H MINUM H MAXUM AR 


H IP = figure('Units' 'normalized", ... 
'Color',[0.8 0.8 0.8], ... 
Colormap mat) 
'Name','Iteration Parameters;, ... 
"Number fue off ... 
"PoINTERShapeCData', mat], ... 
'Position', [0.04375 0.0895833 0.875 0.78125], ... 
'Tag', Figl’; 
b = uimenu(Parent',H IP, ... 
'Label',' JANRAD Options; ... 
"Тар" ulmenul”); 
с = uimenu( Parent b, ... 
'Callback',iteration parameters fcn quit, ... 
'Label''Quit JANRAD', … 
"Tag, JANRAD OptionsSubuimenul?), 
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c = uimenu('Parent',b, ... 
'Callback','iteration_parameters_fen retum), ... 
'Label', Return to Begining’, ... 

"Tag, JANRAD OptionsSubuimenul); 
с = uimenu('Parent',b, ... 
'Callback',iteration parameters fcn delta_input', ... 
'Label','Change Input Parameters; ... 
"Tag" Subuimenul'”); 
c = uimenu('Parent',b, ... 
'Callback','about_janrad), ... 
'Label',' About Janrad 98 ...', ... 
'Separator','on', ... 
"Tag','Subuimenul*); 
b = uicontrol('Parent' H_IP, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.75294] 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
"Position', [0.2607 14 0.888 0.476786 0.0533333], ... 
'String',' Performance Analysis’, ... 
'Style','text', ... 
'Tag','StaticTextl'); 
H IT BOX = uicontrol('Parent',H_IP, ... 
'Units' 'normalized", ... 
'FontSize', 12, ... 
'FontWeight', bold', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.260714 0.824 0.476786 0.0533333], ... 
'Style','text', ... 
"Tag','StaticText1'); 
b = uicontrol(Parent,H IP, ... 
'Units' 'normalized", ... 
'BackgroundColor*, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.2625 0.705778 0.357143 0.0533333], ... 
'String','Start Iteration at !', ... 
Style texto... 
'Tag' 'StaticTextl'); 
H MINUM - uicontrol(Parent',H IP, ... 
'Units',"normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.625 0.704 0.107143 0.0533333], ... 
'Style','edit', ... 
Callback", ['global MINUM;MINUM^*sti2num(get(gcbo, "String"));',... 
if get(H AL,"Value")--1&str2num(get(gcbo,"String"))—9OJ,... 
'get(H  AS,"Value")--1&str2num(get(gcbo,"String"))-—0, ... 
'set(H HIGE,"Enable","on"),end,].... 
"Tag, 'EditText1*); 
b — uicontrol('Parent',H IP, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.75294] 0.752941], ... 
‘Position’, [0.2625 0.634667 0.357143 0.0533333], ... 
'String','End Iteration at !', ... 
'Style','text', ... 
Tag’, StaticTextl'); 
H MAXUM - uicontrol(Parent',;H IP, ... 
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"Units','normalized', ... 
'BackgroundColor',[1 1 1], ... 
'"Position',[0.625 0.634667 0.107143 0.0533333], ... 
'Style','edit', ... 
'Callback','global MAXUM;MAXUMS=str2num(get(gcbo,"String"));',... 
"Tag ,'EditText1*); 
b — uicontrol(Parent',H IP, ... 
"Units',"normalized', ... 
'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
"Position", [0.2625 0.563556 0.357143 0.0533333], ... 
'String','fteration Interval :', ... 
'Style','text', ... 
"Tag' 'StaticTextl”); 
b = uicontrol('Parent',H_IP, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
"Position', [0.625 0.562667 0.107143 0.0533333], ... 
'Style','edit', ... 
'Callback','global INTER;INTER=str2num(get(gcbo,"String”));',... 
"Tag','EditText1*); 
H ASPECT - uicontrol(Parent,;H IP, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.2625 0.492444 0.355357 0.0533333], ... 
‘String’,"Aspect Ratio :', ... 
'Style','text', ... 
'Enable' 'off.... 
"Tag','StaticText1*); 
H ASPECT EDIT - uicontrol(Parent',H IP, ... 
"Units',"normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Position' [0.625 0.490667 0.107143 0.0533333], ... 
"Style ' edit, ... 
'Enable','off,... 
'Callback''global AR; AR=str2num(get(gcbo,"String"));",... 
"Тар" ЕаһТех(1”); 
H HIGE - uicontrol('Parent,H IP, ... 
'Units' 'normalized', ... 
'"BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Enable' 'off, ... 
"Position',[0.2625 0.421333 0.358929 0.0533333], ... 
‘String’,"Include HIGE Calculations”, ... 
'Style','checkbox', ... 
"Value'6,... 
‘Callback','if get(gcbo,"Value")==1,REGIME=1;else,REGIME=0;,end'.... 
"Tag','Checkbox1*); 
b - uicontrol(Parent,H IP, ... 
'Units' 'normalized', ... 
'Callback' 'iteration parameters fcn back, ... 
'FontSize',12, ... 
'FontWeight''bold", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.260714 0.245333 0.196429 0.0986667], ... 
'String','«« BACK., ... 
"Tag ,'Pushbutton1*); 
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b = uicontrol('Parent' H_1P, ... 
'Units' 'normalized', ... 
'Callback','iteraton parameters fcn anal', ... 
'FontSize',12, ... 
FontWeight','bold', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position' [0.542857 0.245333 0.196429 0.0986667], ... 
'String',' Analyze >>', ... 
'Tag','Pushbutton1'); 
b = uicontrol(Parent,H IP, ... 
"Units 'normalized', … 
'BackgroundColor', [0.75294] 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.180357 0.088 0.646429 0.106667], ... 
'String' "Warning - Exessive Iteration Limits May Increase Processing Times'', ... 
'Style','text', ... 
'Tag','StaticTextl'); 
b = uicontrol('Parent',H_IP, ... 
"Units ,"normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position', [0.176786 0.0746667 0.655357 0.125333], ... 
'Style','frame!', ... 
Таг ,Егате!); 
b = uicontrol(Parent','H IP, ... 
'Units', normalized', ... 
BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position', [0.253571 0.810667 0.498214 0.146667], ... 
'Style'‘,'frame!, ... 
Tag, Frame2”); 


assignin(base,H HIGE',H HIGE) 
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APPENDIX R. ITERATION PARAMETERS FCN.M 


Switchyard Callback function for iteration parameters.m GUI function. 


function iteration parameters fcn(Action) 


% Switchyard Callback for iteration parameters.m 
% JANRAD 98 VERSION 5.0 


global H IT METHH IP H NIH ASH ALH GW H BT H BTR H SOT H WSA H RBRH RBS 
H HIGE ... 
Н GOH BKH RESH КОРТ Н MEN H STATUS H STATUS1 H_STATUS2 H_STATUS3 AR... 
S USER. INPUT PICK MINUM MAXUM INTER REGIME MESH, VAL MESH STA AF MAIN 
АЕ ТР... 
NEW TPP NEW AUX VALH, FIX TPPFIX TPP VALS FIT TR INPUT 
S NOTAR TR INPUT... 
NEW rNL TWIST NL TWIST. VAL 


if nargin, 

switch Action 

case 'back' 
ве (Н BK,'Enable','on); 
ве (Н СО, Епа е, оп); 
set(H_RUPT, Enable','off‘); 
set(H_RES,'Enable''off); 
ве (Н МЕК, ЕпаШ!е",оп)); 
close(H IP) 

case 'anal' 
ве (Н BK,'Enable','off); 
set(H_GO,'Enable','off); 
set(H. RUPT,'Enable','on); 
set(H_RES,'Enable','off‘); 
set((H_MEN,'Enable','off'); 
close(H_IP) 
Perf 

case ‘quit’ 
quit gui 

case 'return' 
janrad98 
close(H IP) 
close (H IT METH) 

case 'delta input 
performance input 
close (H IP) 
close (H IT METH) 

case 'about' 
about janrad 

end 

end 
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APPENDIX S. OPTIONS.M 


This file creates the GUI to select additional analysis methods and print input and 


output files saved from the performance output window. 


function options() 


% GUI window to Select user options at end of performance routine. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load options 


global H OPTIONS H PSCAH PRDAH CIMH CIDH RTBH EJANRAD NAME... 
H datain H dataout H. vecdata ... 
H_printin H_printout H_printvec ... 
Н inputfile H_outputfile H_vecfile … 
H checkl H check2 H check3 filename3 OUT COUNT 


H OPTIONS - figure('Units','normalized', ... 

'Color', [0.8 0.8 0.8], ... 

'Colormap', mato, ... 

'Name','Options', ... 

'NumberTitle' 'off, ... 

'PointerShapeCData',matl, ... 
"Position',[-0.003125 0.0625 0.954688 0.8625], ... 
"Lag bei": 

b - uimenu(Parent''H OPTIONS, ... 
Label, JANRAD Options; ... 
"Tag','uimenul); 

с = uumenu( Parent',b, ... 
'Callback','options fcn quit, ... 
'Label','Quit JANRAD', ... 

"Tag, JANRAD OptionsSubuimenul); 

c 7 uumenu( Parent',b, ... 

'Callback' 'options fcn returrn',... 
'Label' 'Return to Begining), ... 
"Tag, JANRAD OptionsSubuimenul?); 

c 7 uumenu( Parent',b, ... 

'Callback','options fcn delta шрш,... 
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'Label' 'Change Input Parameters', ... 
"Tag', Subuimenul'); 
c 7 uimenu( Parent b, ... 
'Callback','options fcn about',... 
'Label' 'About Janrad 98 ...', ... 
'Separator','on',... 
'Tag','Subuimenul'); 
р = uicontrol('Parent',H_OPTIONS, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',16, ... 
'FontWeight','bold', ... 
'Position', [0.0715631 0.808 0.378531 0.109333], ... 
'String','Select Option’, ... 
Style text... 
'Tag','StaticText1'); 
H PSCA - uicontrol( Parent;H OPTIONS,... 
'Value',1,... 
'Callback','options fcn h psca',... 
'Units','normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position", [0.07 15631 0.72 0.378531 0.0533333], ... 
'String','Perform Stabilty & Control Analysis’, ... 
'Style','radiobutton', ... 
'Tag', Radiobutton3', ... 
'Value',1); 
H PRDA = uicontrol('Parent' H_OPTIONS.... 
'Callback', options fcnh prda',... 
"Units','normalized, ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0715631 0.632 0.378531 0.0533333], ... 
'String','Perform Rotor Dynamics Analysis’, ... 
'Style','radiobutton‘, ... 
"Tag',"Radiobutton4’); 
H_CIM = uicontrol(‘Parent',H_ OPTIONS  … 
'Callback' 'options fcn h_cim',... 
'Units''normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


‘Position’, [0.071563 1 0.541333 0.378531 0.0533333], ... 


'String', Change Iteration Method’, ... 
‘Style’, ‘radiobutton’, ... 
‘Tag’, Radiobutton 1’); 
H CID - uicontrol(Parent''H OPTIONS,... 
'Callback','options fcnh cid... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 


‘Position’, [0.071563 1 0.453333 0.378531 0.0533333], ... 


'String' Change Input Data", ... 
'Style' 'radiobutton', ... 
'Tag', Radiobutton2”); 
H RTB - uicontrol(Parent,H OPTIONS,... 
'Callback','options fcn h rtb',... 
"Units','normalized, ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 


‘Position’, [0.0715631 0.365333 0.378531 0.0533333], ... 
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'String','Return to Begining, ... 
'Style','radiobutton', ... 
"Tag','Radiobutton5); 
H EJANRAD - uicontrol(Parent;H OPTIONS,... 
'Callback',options fcn h ejanrad',... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0,752941], ... 


'Position',[0.0715631 0.274667 0.378531 0.0533333], ..- 


‘String’, "Exit JANRAD", ... 
'Style','radiobutton', ... 
"Tag' Radiobutton6”); 
b = uicontrol(Parent';H OPTIONS, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',16, ... 
‘FontWeight’,, bold’, ... 
Position’, [0.546139 0.805333 0.376648 0.106667], ... 
‘String’,"Print Selection’, ... 
‘Style’, text, ... 
"Таг, МайсТехо), 
H printin = uicontrol(Parent,H OPTIONS, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position' [0.545548 0.71644 0.169908 0.0527903], ... 
'String','Print Input File :', ... 
'Style','checkbox', ... 
"Тар", СПесКЬох!,... 
'Value',0); 
H inputfile 7 uicontrol(Parent,;H OPTIONS, ... 
'Units' 'normalized", ... 
'FontSize',12, ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'String',",... 
'Position',[0.748209 0.71644 0.169908 0.0527903], ... 
'Style','text', ... 
'HorizontalAlignment','left',... 
"Tag ,'StaticText6^); 
H printout 7 uicontrol(Parent;H OPTIONS, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941]. ... 
"Position', [0.545548 0.628959 0.169908 0.0527903], ... 
'String','Print Output File '', ... 
'Style','checkbox', ... 
'Tag','Checkbox!', ... 
'Value',0); 
H outputfile = uicontrol(Parent;'H OPTIONS, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'String ,",... 
‘Position’, [0.748209 0.628959 0.169908 0.0527903], ... 
'Style','text', ... 
'HorizontalAlignment','left' ... 
"Tag ,' Static Text8 ); 
H printvec - uicontrol(Parent;H OPTIONS, ... 
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'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.545548 0.536953 0.169908 0.0527903], ... 
'String','Print Matrix & Vector File !', ... 
'Style','checkbox', ... 
"Tag','Checkbox1', ... 
'Value',0); 
H vecfile = uicontrol(Parent,H. OPTIONS, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.748209 0.536953 0.169908 0.0527903], ... 
‚String vc 
'Style','text', ... 
'HorizontalAlignment','left',... 
"Tag ,'StaticText9^); 
b 7 uicontrol(Parent';H OPTIONS, ... 
'Callback','options_fcn print’, ... 
"Units', normalized. ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position", [0.595104 0.402667 0.288136 0.072], ... 
‘String’,'Send to Printer’, ... 
"Tag’,‘Pushbutton2’'); 
b = wicontrol('Parent',H_ OPTIONS, … 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',18, ... 
'FontWeight','bold', ... 
'Position', [0.564995 0.199095 0.341862 0.0980391], ... 
'String','Plot Selection', ... 
'Style','text', … 
‘Tag ,'StaticText3'), 
b = wicontrol(‘Parent',H OPTIONS, … 
'Units' 'normalized", ... 
‘Callback', [if OUT COUNT==0, … 
‘global filename3,filename3-get(H  vecfile,"String");end,,... 
options fcn plots '],... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.591607 0.102564 0.287615 0.0693816], ... 
'String','Create Plots', ... 
"Tag ,'Pushbutton3?); 
b = uicontrol(Parent' H OPTIONS, ... 
'Units' 'normalized", ... 
'ВасКртоипаСо]ог', [0.752941 0.752941 0.752941], ... 
'Position',[0.519774 0.362667 0.435028 0.570667], ... 
'Style', frame‘, ... 
"Tag','Framel); 
b 7 uicontrol(Parent, H OPTIONS, ... 
"Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0451977 0.0826667 0.440678 0.850667], ... 
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'Style’,' frame‘, ... 
Tag ,'Frame2); 

b = uicontrol(Parent;H OPTIONS, ... 
'Units' 'normalized", ... 
'ВасКртоипаСо]ог' [0.752941 0.752941 0.752941], ... 

'Position', (0.516888 0.0799397 0.432958 0.25641], ... 
'Style','frame', ... 
"Тар, ЕгатеЗ3); 
b 7 uicontrol(Parent';H OPTIONS, ... 
'Callback' 'options_fcn back, ... 
'Units' 'normalized', ... 
'FontSize' 12, … 
'FontWeight','bold', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position',[0.0809793 0.112 0.178908 0.088], ... 
'String','<< Back', ... 
"Tag, 'Pushbutton1*); 
b = uicontrol( Parent; H OPTIONS, ... 
'Callback','options fcn cont, ... 
'Units' 'normalized", ... 
'FontSize', 12. ... 
'FontWeight','bold', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.286252 0.112 0.177024 0.088], ... 
'String','Continue >>", ... 
"Tag ,'Pushbutton1*); 
switch OUT COUNT 
case 0 


if get(H checkl,'Value)-- 
set(H printin,'Enable','off") 
end 
if get(H_check2,'Value')== 
set(H printout,'Enable','off") 
end 
if get(H_check3,"Value')==0 
set(H_printvec,'Enable' 'off”) 
end 
end 
assignin('base''H_PSCA' H_PSCA); 
assignin(base''H_PRDA'H _PRDA); 
assignin(‘base’,"H_CIM',H_ CIM); 
assignin(‘base','H_CID',H_CID); 
assignin(‘base’,'H_RTB',H_RTB); 
assignin(‘base’,"H_ EJANRAD',H EJANRAD); 
assignin(base',H printin,H printin); 
assignin(‘base’,'H_printout',H_printout); 
assignin(‘base’,'H_printvec’,H_printvec); 
assignin('base''H_inputfile' H_inputfile); 
assignin('base' 'H_outputfile' H outputfile); 
assignin(base','H vecfile', H vecfile); 
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APPENDIX T. OPTIONS FCN.M 


Switchyard Callback function for options.m GUI function. 


function options fcn(Action) 


% Switchyard Callback function for options.m 
% JANRAD 98 VERSION 5.0 


global H OPTIONS H PSCAH PRDAH CIMH CIDH RTBH EJANRAD .. 
H_printin H_printout H_printvec PICK 5 РЕКЕ ІЧРОТ NAME... 
S MATR VECH vecfile print templ filename3 Н г УЕС 


cond1=get(H_PSCA,'Value'); 
cond2=get(H_PRDA,'Value’); 
cond3=get(H_CIM,'Value'); 
cond4=get(H_CID,'Value'); 
cond5-get(H RTB,'Value; 
сопдбхре(Н EJANRAD,' Value), 


if nargin 
switch Action 
case'h psca' 
set(H PSCA,'Value',1) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD,'Value',0) 
case 'h prda' 
set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',1) 
set(H_CIM,'Value',0) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD,'Value',0) 
case 'h_cim' 
set(H PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',1) 
зе (Н CID,'Value',0) 
set(H RTB,'Value',0) 
set(H_EJANRAD,'Value',0) 
case 'h cid' 
set(H PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID,'Value',1) 
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ве (Н RTB,'Value',0) 
зе (Н EJANRAD,'Value',0) 
case 'h_rtb' 
set(H_PSCA 'Value',0) 
зе (Н РКОА, Уаше",0) 
set(H_CIM,'Value',0) 
set(H_CID,'Value',0) 
set(H_RTB,'Value‘,1) 
set(H_EJANRAD,'Value',0) 
case 'h_ejanrad' 
set(H_PSCA,'"Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD Value”, 1) 
case 'back' 
close (H_OPTIONS) 
performance output 
case 'print' 
if get(H_prntin, Value')==1, 
eval([!copy ,print temp, Ipt1']) 
delete print temp 
end 
if get(H printout, Value )--1, 
eval([!copy ,print templ, Ipt1']) 
delete print templ 
end 
if get(H printvec,'Value)—1 
eval(Fload ' get(H_vecfile, 'String”)); 
diary print temp2 
diary off 
delete print temp2 
diary print temp2 
r, Reff, psi, vi, theta, betat, alpha, Tpsi, Npsi, Mpsi, DMpsi, dT, dN, dM, dD, cblade, CL, CD, 
diary off 
eval(['!copy /b ,print temp2, Ipt1']) 
delete print temp2 
end 
case 'plots' 
if PICK==0 
no iteration plots 
set(H r VEC,'String,num2st(S MATR VEC./S PERF INPUT.R)) 
elseif PICK== 
airspeed_iteration_plots 
elseif PICK==2 
altitude_iteration_plots 
elseif PICK== 
grosswt iteration plots 
elseif PICK==4 
bladetwist iteration plots 
elseif PICK-- 
bladetaperratio iteration plots 
elseif PICK-- 
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startoftaper iteration plots 
elseif PICK==7 
wingspanarea_iteration_plots 
elseif PICK==8 
rotorrad_iteration_plots 
elseif PICK==9 
rotorspd iteration plots 
end 
close (H OPTIONS) 
case 'cont 
if cond1—1 
stability and control 
elseif cond2== 
rotor dynamics 
elseif cond3== 
close (H_OPTIONS) 
S PERF INPUT.Vinf-S PERF INPUT.Vinf/1.68894444, 
S PERF INPUT.twist--S PERF INPUT.twist*57.3; 
S PERF INPUT.thetao-S PERF INPUT.thetao*57.3; 
iteration method 
elseif cond4== 
close (H_OPTIONS) 
performance_input 
elseif cond5== 
close (H_OPTIONS) 
janrad98 
elseif cond6== 
quit gui 
else, 
error( Something is wrong in Options Function") 
end 
case 'return' 
close all 
janrad98 
case 'delta input' 
close (H OPTIONS) 
performance input 
case 'quit' 
quit gui 
case 'about' 
about_janrad 
end 
end 
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APPENDIX U. BLADE ELEMENT.M 


This file creates a GUI screen allowing uneven blade element and nonlinear twist entries. 


function blade element() 


% GUI Window to create user defined blade element vector 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load blade element 


global S PERF INPUT H BLD EL NEW rReffr HOLD RADSPC VAL NL TWIST VAL 
NEW AUX VAL.. 
FIX TPP VAL NEW TPPH EL 1 


unstructure 
COUNT=1; 
rho=.002377*(-.000031*PA+(-.002*tempt1.118)) 


% *** first guess at rotor profile drag ( H force) *** 
if Vinf « 16.9, 

Drotor-0; 
else 

Drotor= Vinf* (rho/.002377); 


end 

q=0.5*rho* Vinf”2; 
Adisk-pi*R^2; 
Vtip-omega*R; 
temp_rank=temp+459.67; 
spd_snd=49.1*sqrt(temp_rank); 
“if (Vtipt Vinf)/spd_snd>0.87 
% spd max=0.87*spd_ snd 
% Vtip=spd_max-Vinf 

% omega=Vtip/R 


%end 


% Section added to set wing lift at a certain value and determine 
% the required wing CL %% This is for compound helos%% 
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APPENDIX U. BLADE ELEMENT.M 


This file creates a GUI screen allowing uneven blade element and nonlinear twist entries. 


function blade element() 


% GUI Window to create user defined blade element vector 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load blade_element 


global S PERF INPUT H. BLD EL NEW r Reff r HOLD RADSPC VAL NL TWIST VAL 
NEW AUX VAL.. 
FIX TPP VAL NEW TPPH EL 1 


unstructure 
COUNT-71; 
rho=.002377*(-.000031*PA+(-.002*temp+1.118)) 


% *** first guess at rotor profile drag ( H force) *** 
if Vinf < 16.9, 

Drotor=0; 
else 

Drotor- Vinf* (rho/.002377); 


end 

q-0.5*rho* Vinf^2; 
Adisk-pi*R^2; 
Vtip=omega*R; 
temp_rank=temp+459.67; 
spd snd-49.1*sqrt(temp rank); 
%oif (Vtipt Vinf)/spd_snd>0.87 
% spd_max=0.87*spd_snd 
Фо Vtip-spd max-Vinf 

% omega=Vtip/R 


%end 


% Section added to set wing lift at a certain value and determine 
% the required wing CL %% This is for compound helos%% 
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Фо Vinf>=160*1.68781 

% perclift- 0.7; 

% Lwing-GWP*perclift 

o CLwing- Lwing/(q*Swing) 
%else 

% Lwing=q*CLwing*Swing; 


x 


%end 
Dfuse=q* Afh; 


CDwing-CDowing-*(CLwing^2/(ewing*pi* (bwing^2/Swing))); 
CDhoriz=CDohoriz+(CLhoriz"2/(.8*pi*(bhoriz"2/Shoriz))); 
CDvert-CDovert-(CLvert^2/(.8*pi*(bvert^2/Svert))); 
Dwing=q*CDwing*Swing; 

Dhoriz-q* CDhoriz*Shoriz, 


Dvert=q* CDvert* Svert; 
if NEW_AUX_VAL== 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 
if Vinf«16.9 
Таих=0; 
else 
Taux- Dftotal; 
end 
S PERF INPUT.Taux-Taux; 
S USER INPUT.Taux-Taux; 
else 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux; 
end 
%Lwing=.6*GW 
Yıf S_USER_INPUT.Vinf<80 %80 kts 
% Таих=0; 
Voelseif S USER INPUT.Vinf>=140 
% Taux=Dftotal; 
Yoelse 
9e Taux-((Vinf-135.02479)/100)*. 98747 *Dftotal; 
%end 
Lwing-q*CLwing*Swing; 
Lhoriz-q*CLhoriz*Shoriz; 
Lvert=q*CLvert*Svert; 
Lftotal=Lwing+Lhoriz+L vert; 
ifFIX TPP VAL-- 
alphaT=NEW TPP;  %oset tip path angle 
else 
alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
end 
%alphaT80=0; 
Vef S USER INPUT. Vinf<80 
% alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
%elseif S_USER_INPUT.Vinf==80 
Фо alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
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% alphaT80=alphaT; 

%elseif S_USER_INPUT.Vinf>=140 

% alphaT=0; 

%else 

% alphaT=(1-(((Vinf-135.02479)/100)*.98747))*alphaT80; 
“end 

%alphaT 

mu=Vinf*cos(alphaT)/Vtip; 


%%% account for vertical drag on wing and horizontal tail %%% 
if taildisk— 1 
Afv1=Afv+3*(Swing+Shoriz),  % this assumes a vertical Cd of 1.2 for the 
elseif taildisk—2 % wing and horiz tail and a vertical Cd of 
Afvl=Afv+3*Swing %0.4 for the fuselage (i.e. 1.2/.4 = 3) 
end % thus making wing/tail effectively larger 
% when hvr thrust calc using Cd=0.4 


if Vinf « 16.9, 


T=(1+(0.4*Afvl/Adisk))* GW; 
else 


T=(GW-Lftotal)/cos(alphaT) 
end 


CT-T/(Adisk*rho* Vtip^2), 
B=1-(sqrt(2*CT)/b); 
Reff-B*R; 

r HOLD=0; 


H BLD EL = figure('Units','normalized', … 
‘Color',[0.8 0.8 0.8], ... 
‘Colormap’,mato, ... 
'Name','Blade Element‘, ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',mat], ... 
'Position', [0.0478516 0.0690104 0.889648 0.877604], ... 
Тар" Ғірі)); 

H OPT = uimenu(Parent,H BLD EL, ... 
'Label',' JANRAD Options, ... 

"Tag' 'ulmenul”); 

с = uimenu('Parent',H_OPT, ... 
'Callback','blade_element_fen quit', ... 
'Label''Quit JANRAD', … 

"Tag," JANRAD OptionsSubuimenul); 

с = uimenu( Parent, H OPT, ... 

'Callback''blade element fcn return', ... 
Label Retum to Beginning’, ... 
Tag',' JANRAD OptionsSubuimenul; 

с = uimenu('Parent',H_OPT, ... 

'Callback' 'blade_element_fen delta_input, ... 
'Label','Change Input Parameters, ... 
"Tag','Subuimenul'); 

c= uimenu(Parent' H_OPT, ... 
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'Callback','blade element fcn about, ... 
'Label' 'About Janrad 98 ...'. ... 
'"Separator','on', ... 
"Tag','Subuimenul?); 
d = uicontrol(Parent;' H BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
"HorizontalAlignment','left’, ... 
‘Position’, [0.0043 956 0.799703 0.984615 0.189911], ... 
"String, mat, ... 
"Style texto 
"Tag','StaücText1'); 
а = uicontrol('Parent',H_BLD EL, ... 
'Units' 'normalized", ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','normal', … 
"Position',[0.116484 0.749258 0.217582 0.041543], ... 


'String',['Grip Ratio = ', num2str(S_PERF_INPUT.grip/R)), ... 


'Style','text, ... 
'Tag','StaticText4'); 
а = uicontrol('Parent' H_BLD EL, ... 
'Units' 'normalized'", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Units' 'normalized', ... 
'FontSize' 12, … 
'Position', [0.528571 0.747774 0.347253 0.041543], ... 
‘String’, [Eff Blade Radius Ratio 7 ', num2str(Reff/R)], ... 
'Style','text, ... 
'Tag' 'StaticText4”); 
а = uicontrol(Parent' H BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',10, … 
Position', [0.164835 0.695846 0.116484 0.0459941], ... 
'String','Radius (r/R)\, ... 
Style’, text, ... 
'Tag' 'StaticText2”); 
d = uicontrol(Parent;H BLD EL, ... 
'Units','normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize', 10, … 
'Position',[0.00659341 0.695846 0.145055 0.0445104], ... 
'String','Blade Element‘, ... 
'Style','text', ... 
Tag', StaticText2”; 
b = uicontrol('Parent' H_BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
FontSize',10, ... 
"Position', [0.298507 0.696481 0.116205 0.0454545], ... 
'String',' Twist (deg)), ... 
'Style','text', ... 
'Tag','StaticText2'); 
164 


d 7 uicontrol(Parent,H BLD EL, .. 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.010989 0.642433 0.134066 0.0489614], ... 
'String',']', ... 
Style EXT, 
"Tag ,'StaticText3); 
H EL 1 = uicontrol(Parent,H BLD EL, ... 
'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

"Position', [0.164835 0.639466 0.117582 0.0519288], ... 

'String’,S PERF INPUT .grip/R.... 

'Style','edit,, ... 

"Таг, ЕФ Тех); 
b = uicontrol(Parent,H BLD EL, ... 
"Units ,'normalized', ... 
'BackgroundColor' [1 1 1], ... 
"РозШоп', [0.298507 0.63783 0.117271 0.0513196}, ... 

'Callback', ['NL_TWIST(1)=str2num(get(gcbo,"String"));’.... 

'set(gcbo,"String" NL TWIST(1),NL TWIST VAL-1;!,.. 
'Style','edit', ... 
"Tag, 'EditText1^); 

d 7 uicontrol(Parent; H BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
Position',[0.0142857 0.577151 0.131868 0.0459941], ... 
бшпр,2,... 
"Style text... 
'Tag' 'StaticText3”); 

а = uicontrol(‘Parent',H_BLD EL, … 
"Units',normalized', ... 
'BackgroundColor' [1 1 1], ... 

'Callback' [NEW_r(1)=str2num(get(H_EL_1,"String");”.... 
NEW r(2)=str2num(get(gcbo,"String”));,... 
‘set(gcbo,"String", NEW_1(2)),RADSPC_VAL=1;’J, ... 

‘Position’, [0.164835 0.571217 0.117582 0.0519288]. ... 
'Style ,'edit', ... 
"Tag ,'EditText1^); 
b = uicontrol(Parent,H BLD EL, .. 
'Units',normalized', ... 
'BackgroundColor',[1 1 1], ... 


'Callback','NL TWIST(2)-str2num(get(gcbo,"String"));set(gcbo,"String', NL TWIST(Q)),, ... 


‘Position’, [0.298507 0.573314 0.117271 0.0513196], ... 
'Style','edit', ... 
‘Tag’, EditText1'); 
а = uicontrol(Parent;H BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
Position',[0.0142857 0.514837 0.132967 0.0459941], ... 
'String';'3', ... 
'Style','text', ... 
"Tag', StaticText3"); 
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d = uicontrol(Parent'' H BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 

'Callback' [... 
'NEW_r(3)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String",NEW_r(3))], ... 

'Position', [0.164835 0.508902 0.117582 0.0519288], ... 
'Style','edit', ... 

‘Tag’, EditText1'); 

uicontrol(‘Parent'’,H_BLD_EL, ... 

'"Units''normalized', ... 

'BackgroundColor',[1 1 1], ... 

'Callback',' NL TWIST(3)-su2num(get(gcbo,"String"));set(gcbo,"String" NL. TWIST(3)), ... 
'Position', [0.298507 0.508798 0.117271 0.0513196], ... 
Style, ed ... 

"Tag ,'EditText1*); 

uicontrol(‘Parent',H BLD EL, … 

'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.0142857 0.451039 0.131868 0.0489614], ... 
'String','4', ... 

Style ЕЛІН n 

"Tag','StaticText3); 

uicontrol(Parent;H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor' [1 1 1], ... 

'Callback',[... 

'NEW_r(4)=str2num(get(gcbo,"String"));',... 

'set(gcbo," String" NEW r(4))'], ... 

‘Position’, [0.164835 0.448071 0.117582 0.0519288], ... 
'Style''edit', … 

"Tag, EditText1*); 

uicontrol(Parent';' H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',' NL TWIST(4)-str2num(get(gcbo,"String));set(gcbo,"String' NL. TWIST(4)), ... 
'Position', [0.298507 0.445748 0.117271 0.0513196], ... 
'Style','edit', ... 

"Таг", ЕФ! Тех); 

uicontrol(Parent' H BLD EL, ... 

'Units','normalized', … 

'ВасКртоипаСоюг', [0.752941 0.752941 0.752941], ... 
'FontSize' 12, ... 

"Position',[0.0142857 0.384273 0.131868 0.0504451], ... 
бишр,5,... 

'Style','text', ... 

"Tag ,'StaucText3*); 

uicontrol(Parent;' H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor',[1 1 1], ... 

‘Callback’, [... 

'NEW_1(5)=str2num(get(gcbo,"String"));’,... 

'set(gcbo," String", NEW _r(5))], ... 

'Position', [0.164835 0.382789 0.117582 0.0534125], ... 
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'Style','edit, ... 

‘Tag’, EditText1'); 
uicontrol(Parent;H BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
‘Callback',"NL_TWIST(5)=str2num(get(gcbo,"String"));set(gcbo,"String", NL_TWIST(5))’, ... 
‘Position’, [0.298507 0.384164 0.117271 0.0527859], ... 
'Style' 'edit', ... 

Тар, Ед! Техи)); 

uicontrol(Parent,H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.75294] 0.752941], ... 
'FontSize',12, ... 

'Position',[0.0153846 0.321958 0.131868 0.0474777], ... 
'String','6', ... 

'Style','text', ... 

'Tag','StaticText3'); 

uicontrol('Parent,H_BLD_EL, ... 

'Units' 'normalized', ... 

'BackgroundColor' [1 1 1]. ... 


"Callback. [... 


ES 
|| 


а. 
II 


d= 


'NEW_r(6)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String",NEW_r(6))'], ... 

Position', [0.164835 0.317507 0.117582 0.0534125], ... 
"Style, edit” ... 

"Tag ,'EditText1*); 

uicontrol(Parent,H BLD EL, .. 

'Units' 'normalized', ... 

'BackgroundColor',[1 1 1], ... 

"СаПраск МГ, TWIST(6)-str2num(get(gcbo,"String"));set(gcbo,"String", NL TWIST(6)),, ... 
'Position', [0.298507 0.318182 0.117271 0.0527859], ... 
'Style' edit; ... 

"Tag ,'EditText1); 

uicontrol('Parent, H BLD EL, ... 

'Units' 'normalized", ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

Position',[0.0142857 0.259644 0.131868 0.0474777], ... 
шше 

Style text … 

"Tag','StaticText3'); 

шсопіто!("Рагеп,Н ВІР EL, ... 

'Units' 'normalized", ... 

'BackgroundColor', [1 1 1], ... 


'Callback',[... 


b= 


NEW _r(7)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String" NEW r(7)y'], ... 

‘Position’, [0.164835 0.256677 0.117582 0.0534125], ... 
‘Style’, edit, ... 

‘Tag’, EditText1'); 

uicontrol('Parent',H_BLD EL, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

'Callback'," NL TWIST(7)-str2num(get(gcbo,"String"));set(gcbo,"String" NL TWIST(?)),, ... 
'Position', [0.298507 0.258065 0.117271 0.0527859], ... 
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Style edit 2 
"Tag ','EditText 1^); 
4 = uicontrol(Parent; H BLD EL, ... 
"'Units','normalized', ... 
BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.0153846 0.197329 0.132967 0.0474777], ... 
'‘String','8', ... 
Style [ех 
'Tag','StaticText3'); 
а = uicontrol(‘Parent',H BLD EL, … 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
‘Callback’, [... 
'NEW_r(8)=str2num(get(gcbo,"String”));',... 
'set(gcbo, "String", NEW_r(8))\), ... 
'Position', [0.164835 0.192878 0.117582 0.0519288], ... 
'Style''edit”, ... 
"Tag ,'EditText1*); 
uicontrol(Parent;H BLD EL, .. 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback',' NL TWIST(8)-str2num(get(gcbo,"String));set(gcbo,"Stnng" NL TWIST(S8)),, ... 
'Position', [0.298507 0.193548 0.117271 0.0513196], ... 
'Style','edlt', ... 
'Tag', EditText1'); 
а = uicontrol(Parent,;H BLD EL, .. 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
FontSize',12, ... 
'Position',[0.0142857 0.132047 0.131868 0.0459941], ... 
'String','9', ... 
'Style','text', ... 
"Tag','StaticText3); 
а = uicontrol('Parent'H_BLD EL, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
Callback. [... 
NEW _r(9)=str2num(get(gcbo,"String"));',... 
'set(gcbo," String", NEW r1(9))'], ... 
'РояНоп' [0.164835 0.127596 0.117582 0.0519288], ... 
'Style','edit, ... 
"Tag','EditText 1^); 
uicontrol(‘Parent',H BLD EL, … 
'Unmits' 'normalized', ... 
'BackgroundColor', [1 1 1], ... 
'Callback'" 'NL_TWIST(9)=str2num(get(gcbo,"String"));set(gcbo, "String" NL_TWIST(9)', ... 
'Position',[0.298507 0.130499 0.117271 0.0513196), ... 
'Style','edit', ... 
'Tag', EditTextl'); 
uicontrol('Parent',H_BLD EL, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.0138593 0.0674487 0.132196 0.0483871], ... 
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'String','10', ... 
'Style','text', ... 
"Tag','StaticText3'); 


d = uicontrol(‘Parent',H_ BLD EL, … 


d 


b 


d 


d 


'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 


'Callback',[... 


il 


Ii 


'NEW_r(10)=str2num(get(gcbo,""String"));’,... 
'set(gcbo,"String', NEW r(10))], ... 

'Position', [0.164835 0.0652819 0.117582 0.0519288], ... 
'Style', 'edit', ... 

'Tag', EditText1”); 

uicontrol('Parent'H_BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor' [1 1 1], ... 


'Callback','NL TWIST(10)-str2num(get(gcbo," String" ));set(gcbo,"String", NL. TWIST(10)),, ... 


"Position', [0.298507 0.0674487 0.117271 0.0513196], ... 
‘Style’, ‘edit’, ... 

"Tag','EditText 1); 

uicontrol(‘Parent',H BLD EL, … 

'Units' 'normalized', ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',10, ... 

"Position', [0.651648 0.695846 0.120879 0.04747771], ... 
"String Radius (r/R);, ... 

'Style','text', ... 

"Tag', StaticText2”); 

uicontrol('Parent',H BLD EL, … 

"Units ,'normalized', ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',10, ... 

‘Position’, [0.487912 0.697329 0.145055 0.0459941], ... 
‘String’, Blade Element’, ... 

'Style','text', ... 

'Tag','StaticText2'); 

uicontrol(Parent' H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize', 10, … 

Position',[0.794505 0.700297 0.116484 0.0445104], ... 
'String', Twist (deg), ... 

'Stvle' text”, ... 

"Tag','StaticText2"); 

uicontrol(Parent' H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

Position', [0.495604 0.64095 0.131868 0.0489614], ... 
‘String','11', ... 

'Style' text”, ... 

"Tag" StaticText3”); 

uicontrol('Parent' H_BLD EL, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 


'Callback',[... 
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'NEW r(11)-su2num(get(gcbo,"String"));',.... 
'set(gcbo," String", NEW 1(11))], ... 
"Position', [0.653445 0.63925 0.117954 0.0519481], ... 
'Style''edit', … 
"Tag ,'EditText 1^); 
Б = uicontrol(‘Parent',H_BLD EL, … 
'Units''normalized', … 
'BackgroundColor',[1 1 1], ... 
'Callback',' NL TWIST(11)-str2num(get(gcbo," String"));set(gcbo," String" NL. TWIST(11)), ... 
‘Position’, [0.794505 0.64095 0.117582 0.0519288], ... 
'Style' 'edit', ... 
"Tag ,'EditText1*); 
d = uicontrol(Parent; H BLD EL, ... 
"Units ,'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
"Position', [0.494505 0.577151 0.12967 0.0474777], ... 
'String','12', ... 
'Style','text', ... 
"Tag ,'StaticText3*); 
d = uicontrol('Parent' H_BLD EL, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1), ... 
"Callback, [... 
'NEW _r(12)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String", NEW r(12))]], ... 
‘Position’, [0.653846 0.578635 0.117582 0.0519288]., ... 
'Style','edit,, ... 
"Tag','EditText1*); 
b - uicontrol(Parent' H BLD EL, ... 
"Units ,'normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Callback' 'NL_TWIST(12)=str2num(get(gcbo,"String"));set(gcbo,"String", NL_TWIST(U2)), ... 
"Position', [0.794505 0.577151 0.117582 0.0504451], ... 
'Style','edit', ... 
"Tag','EditText 1"); 
а = uicontrol(‘Parent',H_ BLD EL, … 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize', 12, ... 
"Розшоп', [0.494505 0.513353 0.12967 0.045994], ... 
'String','13', ... 
'Style','text', ... 
"Tag','StaticText3'); 
d = uicontrol('Parent',H_BLD_EL, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
‘Callback’, [... 
'NEW 1(13)-str2num(get(gcbo, "String"));',... 
'set(gcbo,"String" NEW r(13))], ... 
"Position', [0.653846 0.513353 0.117582 0.0519288], ... 
'Style','edit', ... 
"Tag, EditText 1^); 
b = uicontrol(Parent;H BLD EL, ... 
'Units' 'normalized'", ... 
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'BackgroundColor' [1 1 1], ... 
'Callback''NL TWIST(13)-str2num(get(gcbo,"String"));set(gcbo," String, NL. TWIST(13)),, ... 
'Position',[0.794505 0.511869 0.117582 0.0519288], ... 
'Style','edit', ... 
"Tag ,'EditText 1^); 
d = uicontrol(Parent; H BLD EL, ... 
"Units','normalized', ... 
"BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.494505 0.449555 0.12967 0.0489614], ... 
'String','14', ... 
'Style','text', ... 
‘Tag’, StaticT ext3'); 
а = uicontrol(‘Parent',H_ BLD EL, … 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Callback' [... 
'NEW 1(14)-str2num(get(gcbo, "String );.... 
'set(gcbo,"String", NEW 1:(14))]], ... 
"Position, [0.653846 0.452522 0.117582 0.0519288)], ... 
'Style','edit, ... 
"Tag ,'EditText1*); 
uicontrol(Parent;H BLD EL, ... 
"Units', normalized', ... 
'BackgroundColor',[1 1 1], ... 
"СаПраск, КГ. TWIST(14)-str2num(get(gcbo,"String^));set(gcbo,"String', NL TWIST(14)), ... 
'Position' [0.794505 0.452522 0.117582 0.0504451], ... 
'Style''edit', … 
"Тар, Еф Тех!)); 
uicontrol('Parent',H_ BLD EL, … 
'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.495604 0.385757 0.12967 0.0504451], ... 
'String','15', ... 
'Style','text', ... 
"Tag' 'StaticText3”); 
uicontrol('Parent'H_BLD EL, ... 
'Units' 'normalized", ... 
'BackgroundColor', [1 1 1], ... 
"СаШаск", |... 
'NEW_r(15)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String", NEW _r(15)),'], ... 
'Position',[0.653846 0.388724 0.117582 0.0534125], ... 
'Style','edit', ... 
'Tag', EditText1'); 
uicontrol(Parent; H BLD EL, ... 
"Units ,'normalized', ... 
‘BackgroundColor',[1 1 1], ... 
'Callback',' NL TWIST(15)-str2num(get(gcbo,"String));set(gcbo,"String" NL TWIST(15)), ... 
Position',[0.795604 0.390208 0.117582 0.0534125], ... 
style edit. cx 
Tag ,'EditText1*); 
= uicontrol(Parent;H BLD EL, .. 
'Units' 'normalized", ... 
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'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.495604 0.321958 0.12967 0.0474777], ... 
'String','16', ... 
'Style','text', ... 
'Tag','StaticText3'); 
а = uicontrol(Parent' H BLD EL, ... 
'Units' 'normalized', ... 
‘BackgroundColor',[1 1 1], ... 

'Callback' ‚|... 
'NEW_r(16)=str2num(get(gcbo,"Strung”));',... 
'set(gcbo,"String",NEW_r(16))'], ... 

"Position', [0.653846 0.323442 0.117582 0.0504451], ... 
'Style','edit', ... 
"Tag Ed Tei" 
uicontrol('Parent',H_ BLD EL, … 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback','NL_TWIST(16)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(16))', ... 
‘Position’,[0.794505 0.324926 0.117582 0.0519288], ... 
'Style','edit', ... 
‘Tag’, EditText1'); 
а = uicontrol('Parent'H_BLD EL, ... 
'Units' 'normalized', ... 
'ВасКртоипаСоюог', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
Position',[0.495604 0.261128 0.12967 0.0474777], ... 
'String','17', ... 
'Style','text', ... 
'Tag','StaticText3'); 
а = uicontrol('Parent'H_BLD EL, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 

'Caliback", [... 
'"NEW_r(17)=str2num(get(gcbo,"String"));",... 
'set(gcbo,"String" NEW r(17))'], ... 

'Position',[0.653846 0.262611 0.117582 0.0534125], ... 
'Style','edit', ... 

"Jag','EditText1*); 

uicontrol(Parent' H BLD EL, ... 

"Units',' normalized", ... 

'BackgroundColor' [1 1 1], ... 

'Caliback','NL TWIST(17)-str2num(get(gcbo,"String));set(gcbo,"String' NL TWIST(17)),, ... 
"Position', [0.794505 0.264095 0.117582 0.0534125], ... 
'Style' 'edit', ... 

‘Tag’, EditText1'); 

uicontrol(‘Parent',H_BLD_EL., ... 

'Units' 'normalized'", ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.494505 0.200297 0.12967 0.0459941], ... 
'String','18', ... 

‘Style’, text’, … 

‘Tag’, 'StaticText3'); 

d = uicontrol(‘Parent',H_BLD EL, … 
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"Опив поппаПгед,... 
'BackgroundColor' [1 1 1], ... 


'Callback',[... 


ES 
|| 


а 


n 


'NEW_r(18)=str2num(get(gcbo,"String”));',... 
'set(gcbo,"String", NEW r(18))'] ... 

'Position', [0.653846 0.198813 0.117582 0.0519288], ... 
'Stvle','edit,, ... 

"Tag /'EditText1^); 

uicontrol(Parent; H BLD EL, ... 

'Units' 'normalized', ... 

'BackgroundColor' [11 1], ... 


'Callback' 'NL_TWIST(13)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(18)), ... 


'Position' [0.794505 0.20178 0.117582 0.0504451], ... 
'Style','edit, ... 

"Tag, 'EditText1^); 

uicontrol('Parent’,}H BLD EL, ... 

"Units’,’normalized, ... 

‘BackgroundColor’, [0.752941 0.752941 0.752941]. ... 
'FontSize',12, ... 

'Position', [0.495604 0.137982 0.12967 0.0459941], ... 
‘String, 19", ... 

Style, text, ... 

'Tag','StaticText3'); 

uicontrol(‘Parent',H_ BLD EL, … 

'Units' 'normalized', ... 

'BackgroundColor' [1 1 1], ... 


'Callback’‚[... 


с 
I 


а. 
|| 


N 
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'NEW_r(19)=str2num(get(gcbo,"String”));',... 
'set(gcbo,"String",NEW_r(19))], ... 

'Position', [0.653846 0.137982 0.117582 0.0519288], ... 
'Style','edit', ... 

"Таг, Еф! Тех); 

uicontrol(Parent,H BLD EL, ... 

"Units," normalized", ... 

'BackgroundColor' [1 1 1], ... 


'Callback'," NL TWIST(19)-su2num(get(gcbo,"String));set(gcbo," String" NL TWIST(19)y, ... 


‘Position’, [0.794505 0.139466 0.117582 0.0519288], ... 
'Style''edit', … 

‘Tag’, EditText1'); 

uicontrol(Parent,H BLD EL, ... 

'Units' 'normalized". ... 

'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.494505 0.0712166 0.130769 0.0504451], ... 
'String','20', ... 

'Style','text', ... 

'Tag','Static Text3'); 

uicontrol('Parent''H BLD EL.... 

"Units','normalized', ... 

'BackgroundColor',[1 1 1], ... 


"Callback [... 


'NEW r(20)-su2num(get(gcbo,"String"));' ... 
'set(gcbo, "String", NEW 1(20))', ... 
'Position', [0.653846 0.0727003 0.117582 0.0519288], ... 
'Style', edit. ... 
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'Tag','EditText1'); 

b = uicontrol(‘Parent',H_ BLD EL, … 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback'," NL TWIST(20)-str2num(get(gcbo,"String"));set(gcbo,"String" NL TWIST(20)), ... 
'Position', [0.794505 0.0771513 0.117582 0.0504451], ... 

'‘Style','edit', ... 
'Tag', Edit Text1'); 
а = uicontrol(Parent;H ВО ЕГ,... 
"Units',"normalized', ... 
'Callback','Pblade element fcn back, ... 
'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Рояног' [0.153677 0.00593472 0.198683 0.054896], ... 
'String','<< Back', ... 
"Tag','Pushbutton?'); 
d = uicontrol('Parent,H_BLD_EL, ... 

'Units' 'normalized", ... 

"Callback" [... 

if RADSPC VAL--1,8 PERF INPUT.nbe-length(NEW г);епа,', ... 
'blade element fcn cont]... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.649835 0.0074184 0.203074 0.0563798], ... 
'String' Continue”, ... 
"Tag, Pushbutton1; 


assignin(‘base’,'Reff ,Reff); 
assignin(‘base’,,H_ EL 1',H_EL_ 1); 
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APPENDIX V. BLADE ELEMENT FCN.M 


Switchyard Callback function for blade element.m GUI function. 


function blade element fcn(Action) 


% Switchyard Callback function for blade element.m 
% JANRAD 98 VERSION 5.0 


global S PERF INPUT H. BLD EL NEW r Reffr HOLD RADSPC VAL NL TWIST. VAL H MESH 
Н РОР... 
AF MAIN AF TIP MESH, VAL MESH STA NEW AUX VALFIX TPP VAL NEW TPP 


if nargin, 
switch Action 
case ‘return’ 
janrad98 
close(H_BLD_EL) 
case ‘quit’ 
quit_gui 
case about 
about_janrad 
case 'delta input' 
performance input 
if get(H POP,'Value)--7 
set(H MESH, 'Enable','on) 
end 
close(H_BLD EL) 
case ‘cont’ 
count=0; 
for i=1:length(NEW_r) 
if NEW_r(i)>(Reff/S_PERF INPUT.R) 
count=count+ 1; 
end 
end 
if count>=1 
r_waming 
else iteration_method 
close (H_BLD_EL) 
end 
case 'back' 
performance input 
if get(H_POP,'Value')==7 
set(H_MESH, Enable' 'on') 
end 
clos(H BLD EL) 
end 
end 
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APPENDIX W. COMPOUND TAILROTOR.M 


This file creates a figure window allowing insertion of compound helicopter and tail rotor 
parameters 


function compound tailrotor() 


% GUI Window to enter compound helo and tail rotor parameters 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load compound tailrotor 


global H COMP TRH AUX E DRH FIX TPP NEW AUX VAL NEW TPP S USER INPUT 
S PERF INPUT COUNT ... 
MESH VAL 


unstructurel 
COUNT=1; 
H_COMP_TR = figure('Units' 'normalized", ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'Name','Compound Helicopter & Tail Rotor Parameters’, ... 
'Createfcn', global S CON TR INPUT … 
Number ue oft ... 
PointerShapeCData',mat], ... 
'Position', [0.00878906 0.0690104 0.899414 0.852865], ... 
‘Tag’, Figure’); 
d = uimenu(Parent,H COMP TR, ... 
'Label', JANRAD Options; ... 
'Tag','uimenul'), 
с = uimenu('Parent',d, ... 
'Callback' 'compound tailrotor_fen quit’, ... 
'Label' 'Quit JANRAD', ... 
"Тар", Subuimenul”); 
с = uimenu('Parent',d, ... 
'Callback','compound_tailrotor_fcn return‘,... 
Label Rem (o Begining), ... 
‘Tag’, Subuimenu 1’); 
— uimenu( Parent d, ... 
'Callback','compound tailrotor fcn delta input',... 
'Label','Change Input Parameters', ... 
"Tag, Subuimmenul?; 
= uimenu( Parent' d, ... 
'Callback','compound tailrotor fcn about',... 
'Label',' About Janrad 98 ...', ... 


о 


о 
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'Separator','on',... 


b= 


'Tag', Subuimenul”); 

uicontrol(Parent''H COMP TR, ... 

'Units' 'normalized', ... 

'ВасК2тоипаСо]ог, [0.752941 0.752941 0.75294], ... 

'FontSize',10, ... 

"Position',[0.0412595 0.833588 0.408252 0.149618], ... 

'String,' COMPOUND HELICOPTER OR COMPOUND HELICOPTER WITH AUXILIARY 


THRUST, ... 


'Style','text', ... 
'Tag','StaticTextl'); 


H FIX TPP -uicontrol(ParentH COMP TR, ... 


bz 


b= 


b= 


'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Callback','global FIX TPP VAL, ... 

'Position', [0.0412595 0.743511 0.309446 0.0625954], ... 
'String',, SELECT TO FIX TIP PATH PLANE ANGLE', … 
'Style','checkbox', ... 

'Tag' 'Checkbox1"); 

uicontrol('Parent'H COMP TR, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.0401737 0.674809 0.184582 0.0473282], ... 
'String','Tıp Path Plane Angle =', ... 

'Style','text', ... 

"Tag','StaticText2); 

uicontrol('Parent',H_ COMP TR, … 

'Units' 'normalized', ... 

'BackgroundColor' [1 1 1], ... 

'Callback','global NEW_TPP,NEW_TPP=str2num(get(gcbo,"String"));’, ... 
‘Position’, [0.233442 0.671756 0.0879479 0.050381 7], ... 
'Style','edit', ... 

"Tag ,'EditText1*); 

uicontrol(‘Parent',H_ COMP TR, … 

'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position', [0.327904 0.671756 0.0705755 0.0473282], ... 
'String' 'radians', ... 

'Style' text, ... 

"Tag, StaticText3”); 


H_AUX E DR = uicontrol(Parent',H_COMP_TR, ... 


bz 


'Units' 'normalized", ... 

'BackgroundColor' [0.752941 0,752941 0.752941]. ... 
'Callback''global NEW AUX VAL, ... 

'Position', [0.019544 0.557252 0.450597 0.0717557], ... 
'String,'SELECT TO SET AUXILIARY THRUST EQUAL TO TOTAL DRAG, ... 
'Style' 'checkbox', ... 

'Tag' 'Checkbox2”); 

uicontrol('Parent'H_COMP_TR, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0282302 0.480916 0.4267] 0.0610687], ... 
"tung mat, ... 

Style text 


"Tag,'StaticText4^); 
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b = uicontrol(Parent;H COMP TR, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0.00977199 0.436641 0.473398 0.555725], ... 
'Style' 'frame”, ... 
Тар", Егаште!), 


9о9/о9/о9/о Фо 9/о оо ооо Хо ооо оо Го йо Фо оо ооо 
b = uicontrol('Parent;H COMP TR, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'Position' [0.565689 0.91145 0.407166 0.070229], ... 
‘String’, TAIL ROTOR SIZING PARAMETERS, ... 
'Style','text', ... 
"Таг, МапсТехо); 
b = uicontrol(Parent' H COMP TR, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.565689 0.833588 0.407166 0.0717557], ... 
'String','Note: Fill In The Information Pertinent To Your Desired Tail Rotor Type’, ... 
'Style','text', ... 
"Таг, МапсТех1б)); 
b = uicontrol('Parent' H_COMP TR, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontWeight','bold', ... 
‘Position’, [0.661238 0.775573 0.241042 0.0427481]. ... 
'String' 'CONVENTIONAL TAIL ROTOR,, ... 
'Style' west, 
"Таг, МапсТех!?); 
b = uicontrol(Parent' H COMP TR, ... 
"Units',"normalized', ... 
"BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.564604 0.723664 0.102063 0.0305344], ... 
'String', Radius (ft), ... 
'Style','text', ... 
'Tag','StaticText10'); 
b = uicontrol(Parent;H COMP TR, ... 
'Units' 'normalized", ... 
'BackgroundColor', [1 1 1], ... 
'Position', [0.679696 0.722137 0.0760043 0.0305344], ... 
'Callback'/CON_R>=get(gcbo,"String");S_USER_INPUT.CON_R>=str2num(CON _R);',... 
‘String’,CON_R.... 
‘Style’, ‘edit’, ... 
"Tag', EditText2'); 
b = uicontrol(‘Parent',H_ COMP TR, … 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position',[0.774159 0.717557 0.108578 0.0366412], ... 
‘String’,"Blade Chord (ft)’, ... 
'Style','text', ... 
"Iag','StaticText13*); 
b = uicontrol(Parent,H COMP TR, ... 
'Units' 'normalized", ... 
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'BackgroundColor' [1 1 1], ... 

‘Position’, [0.897937 0.719084 0.0781759 0.0305344}. ... 
'Callback''CON_chord=get(gcbo,"String");S USER INPUT.CON chord=str2num(CON_chord);'... 
'String',CON_chord,... 

'Style','edit', ... 

"Tag','EditText4*); 

Б = uicontrol(Parent' H COMP TR, ... 

'Units', normalized", ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 

‘Position’, [0.562432 0.658015 0.103149 0.0305344], ... 

'String','# of Blades, ... 

'Style','text', ... 

'Tag', StaticTextl 1”); 

b = uicontrol('Parent'H_COMP TR, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

'Position', [0.679696 0.656489 0.0770901 0.0305344], ... 
'Callback','CON_b=get(gcbo,"String");S_USER_INPUT.CON _bsstr2num(CON _b);',... 
'String’,CON _b.... 

'Style','edit', ... 

"Tag', EditText3'); 

b = uicontrol('Parent',H_COMP TR, … 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941), ... 

'Position',[0.774159 0.638168 0.112921 0.059542], ... 

'String',' Rotor Velocity (rad/sec)', ... 

'Style','text', ... 

"Tag','StaticText12*); 

b = uicontrol('Parent',H_ COMP TR, … 

‘Units „'normalized', … 

'BackgroundColor',[1 1 1], ... 

‘Position’, [0.897937 0.651908 0.0770901 0.0305344], ... 
‘Callback',"CON_omega=get(gcbo,"String");S USER INPUT.CON_omega=str2num(CON_omega);’.... 
‘String’, CON_omega.... 

'Style' 'edit', ... 

'Tag' EditTextS”); 

b = uicontrol(‘Parent',H_ COMP TR, … 

'Units',' normalized", ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

‘Position’, [0.564604 0.596947 0.103149 0.0305344}. ... 

'String','Blade cd', ... 

Style, text k 

'Tag','StaticText14'); 

b 7 uicontrol(Parent'H COMP TR, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

Position', [0.679696 0.593893 0.0770901 0.0305344], ... 
'Callback',' CON cd7get(gcbo,"String);:S USER INPUT.CON cd-st2num(CON cd);^,... 
'String,CON cd,... 

'Style','edit', ... 

"Tag ,'EditText6"); 

b — uicontrol(Parent;H COMP TR, ... 

'Units','normalized', ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 

'Position',[0.773073 0.572519 0.114007 0.0534351], ... 
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'String', Tail Moment Arm (ft), ... 

'Style','text', ... 

‘Tag','StaticText 15°); 

b 7 uicontrol('Parent'H COMP TR, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Position', [0.897937 0.584733 0.0770901 0.0305344], ... 

'Callback''CON_lt=get(gcbo,"String"),S USER INPUT.CON It-str2num(CON 10);,... 
'Sting,CON hb. 
'Style','edit', ... 

'Tag', EditText7'); 

0/00/00 09/00 00 09/00 00 00 09/00 0%" 09 00 0900 00 0%? 09 00 о 

b 7 uicontrol(Parent';H COMP TR, ... 

'Units' 'normalized', ... 

'"BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontWeight''bold", ... 

"Position', [0.662324 0.494656 0.241042 0.0427481], ... 

'String''FAN-IN-TAIL', … 

'Style- text; — 

"Tag','StaticText8*); 

b 7 uicontrol(Parent;H COMP TR, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.565689 0.454962 0.102063 0.0305344], ... 

'String','Radius (ft)', ... 

'Style','text', ... 

"Tag','StaticText10*); 

b - uicontrol(Parent;H COMP TR, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

'Position', [0.680782 0.451908 0.0792617 0.0305344], ... 
'Callback',' S FIT TR INPUT.FIT Re-str2num(get(gcbo,"String"));',... 
'Style','edit', ... 

"Tag 'EditText2'); 

b = uicontrol(‘Parent',H COMP TR, … 

'Units' 'normalized', ... 

'ВасКртоипаСо]ог', [0.752941 0.752941 0.752941], ... 

'Position',[0.774159 0.424427 0.112921 0.059542], ... 

'String',' Rotor Velocity (rad/sec)', … 

'Style','text', ... 

‘Tag’, StaticText12'); 

b = uicontrol(Parent';H COMP TR, ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 

'Position', [0.897937 0.441221 0.0770901 0.0305344], ... 
'Callback','S_FIT_TR_INPUT.FIT_omega=str2num(get(gcbo,"String”));',... 
'Style','edit', ... 

"Tag ,'EditText5*); 

b = wicontrol(‘Parent',H COMP TR, … 

'Units' 'normalized", ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 

'Position', [0.566775 0.384733 0.103149 0.0305344], ... 

‘String’, ‘Blade cd", ... 

Sale exe 

'Tag','StaticText14'); 
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b = uicontrol('Parent',H_COMP TER, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

‘Position’, [0.681868 0.383206 0.0781759 0.032061 1], ... 
'Callback','S_FIT_TR_INPUT.FIT_cd=str2num(get(gcbo,"String"));',... 
'Style','edit', ... 

'Tag', EditText3'); 

b 7 uicontrol(Parent''H COMP TR, ... 

"'Units',' normalized", ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

‘Position’, [0.771987 0.363359 0.114007 0.0534351], ... 

'String', Tail Moment Arm (ft), ... 

'Style','text', ... 

‘Tag’, StaticText15'); 

b = uicontrol('Parent',H COMP TR, … 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 

'Position', [0.896851 0.375573 0.0770901 0.0305344], ... 

'Callback','S FIT TR INPUT.FIT lt-str2num(get(gcbo,"String"));',... 
"Style','edit,, ... 

"Tag ,'EditText7 ); 

b = uicontrol('Parent',H_ COMP TR, … 

'Units''normalized', … 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

"Position', [0.566775 0.331298 0.103149 0.0305344], ... 

'String','Solidity', ... 

'Style','text', ... 

Tag” StaticText14”; 
b = uicontrol('Parent''H COMP TR, ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 

'Position', [0.681868 0.329771 0.0781759 0.0320611], ... 

'Callback','S_FIT_TR_INPUT.FIT _sigma=str2num(get(gcbo,"String"));',... 
'Style','edit', ... 

"Tag', EditText3'); 


%9 09 o9 02 09 09/09/09 09/99 Q9. 0%) 0909 Ay 00/00 09/09/09 09/05/0509 00 0509 0 


b = uicontrol(Parent''H COMP TR, ... 
"Units , normalized', ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941]. ... 
‘FontWeight’, bold’, ... 
‘Position’, [0.663409 0.259542 0.239957 0.0412214], ... 
‘String',"NOTAR’, ... 
‘Style’, ‘text’, ... 
"Tag" 'StaticText9”); 

b = uicontrol('Parent'H COMP TR, ... 
"'Units',"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.567861 0.21374 0.102063 0.0305344], ... 
‘String','Diameter (ft)’, ... 
‘Style’, text”, ... 
‘Tag’, StaticText10'); 

b = uicontrol(‘Parent',H_ COMP TR, … 
'Units' 'normalized", ... 
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'BackgroundColor',[1 1 1], ... 
'Position', [0.677524 0.21374 0.0770901 0.0320611], ... 
'‘Style','edit', ... 
'Tag', EditText2'); 
b = uicontrol('Parent',H_COMP TR, ... 
'Units','normalized', ... 
'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'Position', [0.773073 0.20916 0.108578 0.0381679], ... 
'String' RPM, ... 
'Style' text” ... 
‘Tag’, StaticText 13’); 
b = uicontrol(Parent' H COMP TR, ... 
"Units, normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Position', [0.900109 0.210687 0.0781759 0.0305344], ... 
'Style' 'edit', ... 
"Tag ,'EditText4"); 
b 7 uicontrol( Parent;H COMP TR, ... 
"Units',"normalized', ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.567861 0.145038 0.103149 0.0320611], ... 
'String','# of Blades’, ... 
'Style','text,, ... 
‘Tag’, StaticText 11°); 
b = vicontrol(‘Parent',H_ COMP TR, … 
'Units' 'normalized', ... 
'BackgroundColor',(1 1 1], ... 
'Position', [0.677524 0.143511 0.0770901 0.0335878], ... 
Style’, edit’, ... 
"Таг, EditText3”); 
b 7 uicontrol(Parent;H COMP TR, ... 
"Units',"normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Рояноп', [0.770901 0.128244 0.112921 0.0625954], ... 
'String',' Thruster Exit Area (ft^2), ... 
Style’, text’, ... 
'Tag','StaticText12'); 
b = uicontrol('Parent',‚H_COMP TR, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
‘Position’, [0.900109 0.141985 0.0770901 0.0320611], ... 
'Style','edit', ... 
"Tag','EditText5*); 
b = uicontrol('Parent' H_COMP TR, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.568947 0.0793893 0.103149 0.0305344], ... 
'String','Solidity', ... 
'Style','text', ... 
"Таг, майсТехи4); 
b = uicontrol(‘Parent',H COMP TR, … 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
Position',[0.677524 0.0793893 0.0781759 0.0305344] 
'Style','edit', ... 
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'Tag', EditText6'); 
b = uicontrol(Parent, H COMP TR, ... 
"Units', normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.770901 0.0580153 0.114007 0.0534351}, ... 
'String,'NOTAR Moment Arm (ft), ... 
‘Style’, text’, ... 
‘Tag','StaticText1 5’); 
b = uicontrol(‘Parent',H_ COMP TR, … 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Position',[0.897937 0.0717557 0.0770901 0.0305344], ... 
'Style','edit', ... 
"Tag ,'EditText7^); 
b = uicontrol(Parent,H COMP TR, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.558089 0.010687 0.429967 0.983206], ... 
'Style','frame', … 
‘Tag’, Frame2'); 
b = uicontrol( Parent, H COMP TR, ... 
'Units' 'normalized', ... 
'Callback' 'compound tailrotor cn back ... 
'FontSize' 14, ... 
FontWeight','bold', ... 
"Position', [0.149837 0.242378 0.206298 0.106707], ... 
'String' BACK, ... 
'Tag' 'Pushbutton1”; 
р = uicontrol(Parent' H COMP TR, ... 
'Units' 'normalized', ... 
'Callback','S PERF INPUT-S USER INPUT;compound tailrotor fcn cont’, ... 
'FontSize',14, ... 
'FontWeight' 'bold", ... 
‘Position’, [0.152009 0.0960366 0.206298 0.105183], ... 
'String', CONTINUE >>... 
‘Tag','Pushbutton 1"); 


assignin(base'H_AUX E DR'H AUX E DR) 
assignin('base,H FIX TPP'H FIX TPP) 
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APPENDIX X. COMPOUND TAILROTOR FCN.M 


Switchyard callback for compound tailrotor.m GUI screen 
function compound tailrotor fcn(Action) 


% Switchyard Callback function for compound tailrotor.m 
% JANRAD 98 VERSION 5.0 


global H PERF IN H COMP TR H. AUX E DR H FIX TPP NEW AUX VAL NEW TPP 
FIX TPP VAL RADSPC VAL ... 

COUNT S USER INPUT S PERF INPUT H POP AF MAIN AF TIP MESH VAL MESH STA 
NEW rNL TWIST 


if nargin, 
switch Action 
сазе back 
performance input 
if get(H_POP,"Value')==7 
set(H_MESH,'Enable','on') 
MESH_VAL=1; 
end 
close (H_COMP_TR) 
case ‘return’ 
janrad98 
close all 
case ‘quit’ 
quit_gui 
case 'delta input' 
performance input 
ГГ ре(Н РОР, Уашеу--7 
set(H MESH,'Enable','on') 
MESH VAL-1; 
end 
close (H COMP TR) 
case ‘about’ 
about janrad 
case 'cont' 
if get(H AUX E DR 'Value')==1 
NEW AUX VAL=I; 
else 
NEW AUX VAL-0; 
end 
if get(H FIX TPP,'Value)--1 
FIX TPP VAL-1; 
else 
FIX_TPP_VAL=0; 
end 
if RADSPC VAL==IJNL TWIST== 
blade element 
close (H COMP TR) 
else 
iteration method 
close (H COMP TR) 
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end 
end 
end 
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APPENDIX Y. AIRFOIL MESH.M 


This file creates a screen allowing airfoil meshing capabilities 


function airfoil_mesh() 


% GUI Window to create mesh of two airfoils 
96 JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load airfoil_mesh 


global H AF MESH H. MESH AF MAIN AF TIP MESH STA MESH VAL COUNT 


COUNT=1; 
H AF MESH - figure(Units',normalized', ... 
'Color',[0.8 0.8 0.8], ... 


'Colormap', mato, ... 
'Name','Airfoil Mesh; ... 
‘Number Title''off', … 
'PointerShapeCData',matl, ... 
'Position',[0.169922 0.532552 0.65625 0.389323], ... 
"Lag bel 

b = uicontrol(Parent'' H AF MESH, ... 
"'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position',[0.0997024 0.627517 0.802083 0.325503], ... 
'String',mat2, ... | 
'Style','text', ... 
‘Tag’, StaticText 1’); 

b = uicontrol(Parent;H AF MESH, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize', 12. ... 
'Position', [0.13244 0.399329 0.354167 0.184564], ... 
"String, [' Airfoil for rotor blade section out to r/R of ' num2str(MESH STA)| ... 
'Style' text”, ... 
‘Tag’ 'StaticText2'); 

H AF MAIN = uicontrol(Parent',H_AF MESH, … 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'FontSize' 12, … 
'Position', [0.537202 0.270903 0.21131 0.314381], ... 
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'String',['Select|00 12[HH-02[VR-12|VR-15|SC1094R8|SC1095R8], ... 
'Style','popupmenu‘, ... 
'Callback','global AF MAIN, AF MAIN=get(gcbo,"Value");’.... 


"Tag,'PopupMenul', ... 


bz 


'Value',1); 

uicontrol(Parent,H AF MESH, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 

'Position', [0.13244 0.0973154 0.354167 0.194631], ... 


'String',['Airfoil for rotor blade from ' num2str(MESH_STA) ' r/R out to tip.'], ... 


'Style','text', ... 
'Tag’,'StaticText2'); 


H AF TIP = uicontrol(Parent,H AF MESH, ... 


"Units ', normalized, ... 

'BackgroundColor',[1 1 1], ... 

FontSize',12, ... 

‘Position’, [0.53869 -0.0234114 0.21131 0.32107], ... 

'String' ['Select|0012|HH-02|VR-12| VR-15|SC1094R8|SC 1095RS8'], ... 


'Callback','global AF TIP,AF TIP-get(gcbo,"Value");'.... 
'Style','popupmenu, ... 


b= 


b= 


"Га?''РорирМепи1', ... 

'Value', 1); 

uicontrol( Parent H AF MESH, ... 
'Units','points', ... 

'BackgroundColor',[0.847059 0.752941 0.627451], ... 
'Position', [7.44828 6.82759 404.069 286.138], ... 
'Style', frame‘, ... 

'Tag' Framel", ... 

'Visible','off‘); 

uicontrol(Parent' H AF MESH, ... 

'Units' 'points', ... 

'FontSize', 14, ... 

'FontWeight','bold', ... 

‘Position’, [332.69 56.4828 42.8276 28.5517]. ... 


‘String',’O.K..", ... 
'Callback','performance input fcn ok',... 


Таг", Pushbutton 1°; 


assignin('base''H_AF MAIN'H_ AF MAIN) 
E 


assignin(base',' H AF TIPSH 


IP) 
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APPENDIX Z. CREATE PLOTS.M 


This file generates the output plots for all iteration methods 


Фо Create Plots.m 


% Plots of Performance Output - change figure nbrs as needed 
% add/comment out figures as needed %%%% 
% JANRAD 98 VERSION 5.0 


global REGIME S_PERF_INPUT MINUM RADSPC_VAL filename3 PICK OUT_COUNT PLOT_VALS 


unstructure 

if PICK ~=0 
load output 
load tailop 

end 

if REGIME== 
load extra9 

end 


switch PICK 
case 0 
eval(['load ' filename3]) 
if RADSPC VAL-- 
dr-[dr (R-Reff)]* 12 
else 
dr=dr* 12; 
end 
if get(H NO IT Pl,'Value)--1 


figure(11) 


subplot(2, 1,1) 

plot(r./R,dT(1,:)./dr,'k'),grid 

title(‘Psi = 0 deg") 

xlabel('Blade Position r/R);ylabel('Airload (Lb/in)*); 


subplot(2, 1,2) 

plot(r./R,dT(floor(naz/4),:)./dr,'k'),grid 

title('Psi = 90 deg) 

xlabel('Blade Position r/R”); ylabel(' Airload (Lb/in)’; 

toptitle(['Airload vs Radial Blade Stations At '‚num2str(Vinf/1.68781),' Kts'J) 


figure(12) 


subplot(2, 1,1) 

plot(r./R,dT(floor(naz/2),:)./dr,'k'),grid 

title(Psi = 180 deg) 

xlabel('Blade Position r/R^); ylabel('Airload (Lb/in)"); 


subplot(2,1,2) 
plot(r./R,dT(floor(3*naz/4),:)./dr,'k'),grid 
title('Psi = 270 deg) 
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xlabel('Blade Position r/R”); ylabel(' Airload (Lb/in)'); 
toptitle(['Airload vs Radial Blade Stations At ',num2str(Vinf/1.68781),' Kts']) 
end 


if get(H NO IT P2,'Value)--1 
figure(13) 
if RADSPC VAL-- 
[th,r1] = meshgrid((-180:360/naz:180)*pi/180,r/R ); 
else 
[thr1] = meshgrid((-180:360/naz:180)*p1180,r/R); 
end 
[x,y] = polZcart(th,rl); 
dT1=[dT; dT(1,:)]; 
for 1=1:naz+1 
dT1(1,:)=dT1(1,:)./dr; 
end 
mesh(x' y',dT1) 
view(3 15,60) 
ахіѕ([-1 1 -1 1 -5 40]) 
xlabel('Starboard"); ylabel(' Aft); zlabel(' Aero Load, Lb/in'); 
title(['Airload Distribution At '‚num2str(Vinf/1.68781),' Kts']) 
end 


ifget(H NO IT P3,'Value)--71 
figure(14) 
n-length(PLOT VALS); 
rows-ceil(n/2); 
for i=1:n 
k-find(r--(interpl(raornPLOT VALS(1)*R,'nearest))); 
subplot(rows, 2,1) 
if (floor(1/2)=(12)) 
plot(psi,dM(:,k)), grid axis tight 
title([r/R 7 ''num2str(PLOT  VALS(1))]) 
if in 
xlabel( Azimuth(deg)); 
end 
else plot(psi,dM(:,k)), grid,axis tight 
title([r/R 7 ',num2str(IPLOT VALS())]) 
if (i—n[i--n-1) 
xlabel(' Azimuth(deg)”); 
end 
ylabel("Thrust Moment(ft-Ib)') 
end 
end 
toptitle(["Thrust Moment vs Azimuth At ';num2str(Vinf/1.68781),' Kts']') 
end 
ifget(H NO IT P4,'Value)--1 
figure(15) 
subplot(2,2,1) 
plot(r./R,dN(1,:)/dr,'k'),grid 
title('Psi = 0 deg’) 
ylabel('Lift,Lb/in'); 


subplot(2,2,2) 
plot(r./R,dN(floor(naz/4),:)/dr,'k'),grid 
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title('Psi = 90 deg) 


subplot(2,2,3) 
plot(r./R,dN(floor(naz/2),:)/dr,'k'),grid 
title('Ps1 = 180 deg) 

xlabel('r/R'); ylabel (Lift, Lb/in’); 


subplot(2,2,4) 

plot(r./R,dN(floor(3*naz/4), :)/dr,‘k’), grid 

title('Psi = 270 deg) 

xlabel(‘r/R'); 

toptitle(['Normal Force (Lift) vs Radial Blade Stations At ''num2str(Vinf/1.68781),' Kts']) 
end 


case 1 
load extral 


ifget(H AS IT РІ,Уаше?--1 
%%%% Main Rotor plots - Speed vs T/RHP/TPPangle/Liftpercent - 4 оп 1 раре %%%% 
figure(11) 
%subplot 22 1;plot(speed,LoverD); ylabel( W/De^); xlabel('Airspeed (kts)") 
subplot 221; plot(speed,thrust);grid, ylabel('Rotor Thrust (1b)”) 
subplot 222; plot(speed,RHP); grid, ylabel('Rotor Horsepower') 
subplot 223; plot(speed,angle); grid,xlabel(' Airspeed, Kts'); ylabel('Tip Path Plane Angle (deg)’) 
subplot 224; plot(speed,Lperc); grid,xlabel( Airspeed, Kts');ylabel('Wing Lift Percentage") 
“subplot 223; plot(mu,ctonsig) 


%%%% Ехасі пшпфегв for above graphs 
%disp Speed W/De RHP TPP Angle Lift Percent’) 
%final= [speed LoverD RHP angle Lperc]; 

end 


if get(H AS IT P2,'Value)--1 
%%%% Total Pwr reqd vs Air speed! 070% 
figure(12) 
if MINUM--0&PA--0&REGIME-- 
Totpwr(1)-Ptige(1); 
end 
plot(speed, Totpwr),hold,grid 
plot(speed, RHP,'r) 
plot(speed, pwrtail,'g‘) 
title(Power Required vs Airspeed’) 
xlabel(‘Aurspeed (kts)’) 
ylabel(‘Shaft Horsepower’) 
text(1.01*min(speed),.995*max(Totpwr), [Omega = ' num2str(omega) ' rad/sec']) 
legend('Total Power' Rotor Power, 'Tail HP',0) 
if MINUM==0&PA==0&REGIME== 
text(min(speed)+10,min(Totpwr)+10,'Value at Vinf=0 is HIGE Power") 
end 
end 


Vof get(H AS IT P3,'Value))--1 

vo %%%% Fan-in-Tail Plots - Thrust vs Speed & Pwr vs Speed - on 1 page %%%% 
% figure(13) 

% subplot 211; plot(speed, Tfan,speed, Tfın,'--"),grid 
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9o title('Anti-Torque Thrust Required and Vertical Fin Thrust Provided") 
% ylabel(Thrust (Ibs));legend( Fan Thrust'," Vert Fin Lift',0) 
% subplot 212; plot(speed,pwrfani,'--,speed,pwrfanp,'-.' speed,pwrfant),grid 
%  title(Fan Power Required”) 
% xlabel('Airspeed (kts));ylabel("Power (hp)') 
% legend(‘Induced Power' Profile Power’, Total Power',0) 
%end 
ifget(H AS IT P3,'Value)--1 
% Y % Y Rotor Speed vs Speed (Variable omega) 
figure(13) 
plot(speed,rot_spd) 
title('Rotor Speed vs Airspeed For Constant Vtip = 0.87 Mach’) 
xlabel('Airspeed (kts)');ylabel('Omega (rad/sec)’) 
axis([140 220 21 24.5]) 
end 


Vof NE AS IT P4,'Value)—1 
% %%%% Fan-in-Tail Plot - Speed vs Tot Fan Pwr %%%% 
% figure(14) 
% plot(speed, pwrfant./RHP* 100),grid 
% title("Tail Rotor Power Required as Percent of Rotor Power") 
% xlabel('Airspeed") 
Фо ylabel('Percent Rotor Power') 
%end 
ifget(H AS IT P4,'Value)--1 
figure(14) 
plot(speed, auxthrust),grid 
title'Auxiliary Thrust Required vs Airspeed, Wing Carrying 7096 Total Lift") 
xlabel(' Airspeed (kts)”) 
ylabel('Auxiliary Thrust (Ib)’) 
end 


ifget(H AS IT P5,'Value)--1 
%%%% Plot of Coeff of Pwr vs Coeff of Thrust at Max Airspeed %%%% 
figure(15) 
plot(Tcoeff,Pcoeff), grid 
title('CP versus CT for Maximum Airspeed’) 
xlabel('Thrust Coefficient (CT)') 
ylabel(‘Engine Power Coefficient (CP)') 
end 


ifget(H AS IT P6,'Value)--1 
%%Y%% Plot of Coefficient of Thrust vs Figure of Merit %%%% 
figure(16) 
plot(Tcoeff figmrt), grid 
title(HOGE FM versus CT for SLS”) 
xlabel('Thrust Coefficient (CT) 
ylabel( Figure of Merit (FM) 
end 
ifget(H AS IT P7,'Value)-- 
%%Y%% Rotor Drag vs Airspeed %%%% 
figure(17) 
plot(speed,Rotdrag,'r'),hold on,grid 
plot(speed, Wingdrag, b') 
plot(speed, Drag,'g') 
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title(Drag vs Airspeed') 
xlabel( Airspeed (Kts)') 
ylabel('Drag (Ibs)') 
legend('Rotor Drag',' Wing Drag','Total Drag',0) 
end 
if get(H AS IT P8,'Value)--1 
%%%% Required Collective Pitch vs Airspeed %%%% 
figure(18) 
plot(speed,coll pit),grid 
title("Required Collective Pitch vs Airspeed") 
xlabel('Airspeed (Kts)') 
ylabel('Collective Pitch (degrees)”) 
end 
if get(H AS IT P9,'Value)-- 
%%%% Total Pwr reqd vs Airspeed%%%% 
figure(11) 
plot(speed, Totpwr),hold,grid 
plot(speed, RHP,'r) 
plot(speed, pwrtail,'g") 
title('Power Required vs Airspeed') 
xlabel(' Airspeed (Kts)') 
ylabel('Shaft Horsepower') 
legend( Total Power','Rotor Power',"Tail HP',0) 
gtext(Omega= 20 rad/s Above 140 kts’) 
end 
if get(H AS IT Pl10,'Value)-- 
%%%% bls vs Airspeed %%%% 
figure(20) 
plot(speed,long coeff),grid 
title('1st Longitudinal Cyclic Term vs Airspeed’) 
xlabel('Airspeed (Kts)’) 
ylabel(‘bls') 
end 


case 2 
load extra2 
if get((H_AL IT P1,'Value')==1 
%%% Total Pwr reqd vs Altitude%%%% 
figure(1 1) 


if MINUM==0& Vinf==0&REGIME== 
Totpwr(1)=Ptige(1); 
end 


plot(altitude, Totpwr), grid 
title(‘Total Power Required vs Altitude’) 
xlabel('Pressure Altitude (ft)') 
ylabel('Shaft Horsepower') 
if MINUM==0& Vinf==0&REGIME== 
text(min(altitude)+50,min(Totpwr)+10,'Value at PA=0 is HIGE Power’) 
end 
end 
if get(H AL IT P2,'Value)--1 
%%%% Rotor Drag vs Altitude %%%% 
figure(12) 
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altitude 
Rotdrag 
plot(altitude,Rotdrag), grid 
title(‘Rotor Drag vs Altitude’) 
xJabel( Pressure Altitude (ft)') 
ylabel('Rotor Drag (1bs)') 

end 

ifget(H, AL IT P3,'Value)--1 
%%%% Required Collective Pitch vs Altitude %%%% 
figure(13) 
plot(altitude,coll pit),grid 
title('Required Collective Pitch vs Altitude’) 
xlabel('Pressure Altitude (ft)’) 
ylabel('Collective Pitch (degrees)') 

end 

ifget(H AL IT P4,'Value)—1 
% Y Y%% als vs Altitude %%%% 
figure(14) 
plot(altitude,lat_coeff), grid 
title('1st Lateral Cyclic Term vs Altitude”) 
xlabel('Pressure Altitude (ft)”) 
ylabel('a1s”) 

end 

ifget(H AL IT P5,'Value)--1 
%%%% bls vs Altitude %%%% 
figure(15) 
plot(altitude,long _coeff), grid 
title('1st Longitudinal Cyclic Term vs Altitude’) 
xlabel('Pressure Altitude (ft)*) 
ylabel('b1s") 

end 


case 3 
load extra3 
if get(H_GW IT P1,'Value')== 
%%%% Total Pwr reqd vs Gross Weight%%%% 
figure(11) 
plot(wt, Totpwr),grid 
title('Total Power Required vs Gross Weight‘) 
xlabel(‘Gross Weight (Ib)') 
ylabel(‘Shaft Horsepower") 
end 
if get(H_GW_IT P2,'Value')== 
%%%% Rotor Drag vs Gross Weight %%%% 
Прите(12) 
plot(wt,Rotdrag), grid 
title'Rotor Drag vs Gross Weight") 
xlabel('Gross Weight (Ib)') 
ylabel('Rotor Drag (Ibs)') 
end 
if get(H GW IT P3,'Value)--1 
%%%% Required Collective Pitch vs Gross Weight %%%)% 
figure(13) 
plot(wt,coll pit),grid 
title'Required Collective Pitch vs Gross Weight") 
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xlabel('Gross Weight (Ib)') 
ylabel('Collective Pitch (degrees)') 
end 
if get(H. GW IT P4,'Value")-- 
%%%% als vs Gross Weight %%%% 
figure(14) 
plot(wt,lat_coeff), grid 
title('1st Lateral Cyclic Term vs Gross Weight") 
xlabel('Gross Weight (1b)) 
ylabel('als') 
end 
if get(H GW IT P5,'Value)-- 
%%%% bls vs Gross Weight %%%% 
figure(15) 
plot(wt,long_coeff),grid 
title("1st Longitudinal Cyclic Term vs Gross Weight") 
xlabel('Gross Weight (1Б)) 
ylabel('b1s') 
end 
І реН СҰ IT P6,'Value')==1 
%%%% Plot of Coefficient of Thrust vs Gross Weight %%%% 
figure(16) 
plot(wt, Tcoeff), grid 
title('Coefficient of Thrust vs Gross Weight") 
xlabel('Gross Weight (Ib)") 
ylabel(‘Thrust Coefficient (CT)') 
end 
if get((H_GW_IT_P7,'Value')==1 
%%%% Plot of Coefficient of Power vs Gross Weight %%%% 
figure(17) 
plot(wt,Pcoeff), grid 
title('Coefficient of Power vs Gross Weight") 
xlabel('Gross Weight (1b)') 
ylabel(Power Coefficient (CP) 
end 
if get(H GW IT PS,'Value)--1 
%%%% Plot of Figure of Merit vs Gross Weight %%%% 
figure(18) 
plot(wt,figmrt),grid 
title(Figure of Merit vs Gross Weight) 
xlabel('Gross Weight (Ib)') 
ylabel('Figure of Merit’) 
end 
if getédH GW IT P9,'Value)-- 1&REGIME--1&PA--0 


figure(19) 
plot(wt,Ptige),grid 
titleHIGE Power Required vs Gross Weight") 
xlabel('Gross Weight (Ib) 
ylabel('Shaft Horsepower') 
end 


case 4 
load extra4 
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ifget(H BT IT Pl1,'Value)--1 
%%%% Total Pwr reqd vs Blade Twist%%%%o 
figure(1 1) 
plot(thetat, Totpwr),grid 
title("Total Power Required vs Blade Twist") 
xlabel('Blade Twist (deg)') 
ylabel(‘Shaft Horsepower") 
end 
ifget(H BT IT P2,'Value)--1 
%%%% Rotor Drag vs Blade Twist (deg) %%%% 
figure(12) 
plot(thetat Rotdrag), grid 
title'Rotor Drag vs Blade Twist") 
xlabel('Blade Twist (deg)') 
ylabel('Rotor Drag (Ibs)”) 
end 
ifget(H BT IT P3,'Value)-- 
%%%% Required Collective Pitch vs Blade Twist (deg) %%%% 
figure(13) 
plot(thetat,coll_ pit), grid 
title('Required Collective Pitch vs Blade Twist") 
xlabel('Blade Twist (deg)') 
ylabel(‘Collective Pitch (degrees)') 
end 
ifget(H BT IT P4,'Value)--1 
%%%% als vs Blade Twist (deg) %%%% 
figure(14) 
plot(thetat,lat_ coeff), grid 
title('1st Lateral Cyclic Term vs Blade Twist") 
xlabel('Blade Twist (deg)') 
ylabel('a1s') 
end 
ifget(H BT IT PS5,'Value)--1 
%%%% bls vs Blade Twist (deg) %%%% 
figure(15) 
plot(thetat,long_coeff),grid 
ttle('1st Longitudinal Cyclic Term vs Blade Twist‘) 
xlabel('Blade Twist (deg)') 
ylabel('b1s') 
end 
ifget(H BT IT P6,'Value)--1 
%%%% Plot of Coefficient of Thrust vs Blade Twist (deg) %%%% 
figure(16) 
plot(thetat, Tcoeff), grid 
title('Coefficient of Thrust vs Blade Twist’) 
xlabel('Blade Twist (deg)') 
ylabel('Thrust Coefficient (CT)) 
end 
ifget(H BT IT P7,'Value)-- 
%%%% Plot of Coefficient of Power vs Blade Twist (deg) %%%% 
figure(17) 
plot(thetat,Pcoeff),grid 
title('Coefficient of Power vs Blade Twist") 
xlabel('Blade Twist (deg)') 
ylabel('Power Coefficient (CP)') 
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end 
Т ре(Н ВТ ІТ Р8, Уашеу--і1 
%%%% Plot of Figure of Merit vs Blade Twist (deg) %%%% 
figure(16) 
plot(thetat figmrt),grid 
title('Figure of Merit vs Blade Twist") 
xlabel('Blade Twist (deg)”) 
ylabel('Figure of Merit) 
end 


case 5 
load extra5 
if get(H_BTR_IT Pl 'Value”)=1 
%%%% Total Pwr reqd vs Blade Taper Ratio%%%% 
figure(11) 
plot(taper, Totpwr),grid 
title(‘Total Power Required vs Blade Taper Ratio") 
xlabel(‘Blade Taper Ratio’) 
ylabel('Shaft Horsepower’) 
end 
if get(H BTR IT P2,'Value)-- 
% Y 7% Rotor Drag vs Blade Taper Ratio%%%% 
figure(12) 
plot(taper,Rotdrag), grid 
title('Rotor Drag vs Blade Taper Ratio”) 
xlabel('Blade Taper Ratio”) 
ylabel('Rotor Drag (1bs)”) 
end 
if get(H BTR IT P3,'Value)--1 
%%% Required Collective Pitch vs Blade Taper Ratio%%%% 
figure(13) 
plot(taper,coll_pit),grid 
title'Required Collective Pitch vs Blade Taper Ratio") 
xlabel('Blade Taper Ratio’) 
ylabel( Collective Pitch (degrees) 
end 
if get(H BTR IT P4,'Value))-- 
% oo als vs Blade Taper Ratio %%%% 
figure(14) 
plot(taper,lat_coeff),gnd 
title('1st Lateral Cyclic Term vs Blade Taper Ratio’) 
xlabel('Blade Taper Ratio") 
ylabel(‘als') 
end 
Т ре(Н ВТК ІТ Р5,Машеу--і 
%%%% bls vs Blade Taper Ratio %%%% 
figure(15) 
plot(taper,long_coeff),grid 
title('1st Longitudinal Cyclic Term vs Blade Taper Ratio’) 
xlabel( Blade Taper Ratio’) 
УаБе(Ъ15) 
епд 
if get(H_BTR IT P6,'Value')==1 
%%%% Plot of Coefficient of Thrust vs Blade Taper Ratio %%%% 
figure(16) : 
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plot(taper, Tcoeff), grid 
title('Coefficient of Thrust vs Blade Taper Ratio”) 
xlabel('Blade Taper Ratio’) 
ylabel('Thrust Coefficient (CT)') 

end 

if get((H_BTR_IT_P7,'Value’)==1 
9/99/99/99 Plot of Coefficient of Power vs Blade Taper Ratio %%%% 
figure(17) 
plot(taper,Pcoeff),grid 
title('Coefficient of Power vs Blade Taper Ratio’) 
xlabel('Blade Taper Ratio”) 
ylabel('Power Coefficient (CP)’) 

end 

if get(H_BTR_IT_P8,'Value’)== 
%%%% Plot of Figure of Merit vs Blade Taper Ratio %%%% 
figure(16) 
plot(taper,figmrt),grid 
title Figure of Merit vs Blade Taper Ratio’) 
xlabel('Blade Taper Ratio”) 
ylabel('Figure of Merit) 

end 


case 6 
load extra6 
if get(H 5ОТ ІТ РІ, Уаше?у-е1 
%%%Y Total Pwr reqd vs Start of Taper Position%%%% 
figure(11) 
plot(start, Totpwr),grid 
title("Total Power Required vs Start of Taper Position’) 
xlabel('Start of Taper Position’) 
ylabel(‘Shaft Horsepower”) 
end 
if get(H SOT IT P2,'Value')==l1 
%%/%% Rotor Drag vs Start of Taper Position%%%% 
figure(12) 
plot(start,Rotdrag), grid 
title('Rotor Drag vs Start of Taper Position’) 
xlabel('Start of Taper Position") 
ylabel('Rotor Drag (Ibs)') 
end 
ifget(H SOT IT P3,'Value)—1 
%%%% Required Collective Pitch vs Start of Taper Position%%%% 
figure(13) 
plot(start,coll pit),grid 
title('Required Collective Pitch vs Start of Taper Position") 
xlabel('Start of Taper Position") 
ylabel('Collective Pitch (degrees)') 
end 
if get(H_SOT IT P4,'Value')==1 
%%%% als vs Start of Taper Position %%%% 
figure(14) 
plot(start,lat_coeff),grid 
title('1st Lateral Cyclic Term vs Start of Taper Position’) 
xlabel('Start of Taper Position") 
ylabel('als") 
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end 
ifget(H SOT IT P5,'Value)--1 
%%%% bls vs Start of Taper Position %%%% 
figure(15) 
plot(start long_coeff), grid 
title('1st Longitudinal Cyclic Term vs Start of Taper Position') 
xlabel('Start of Taper Position‘) 
ylabel(‘b1s’) 
end 
if get(H_SOT_IT_P6,'Value')==1 
%%%% Plot of Coefficient of Thrust vs Start of Taper Position %%%% 
figure(16) 
plot(start, Tcoeff), grid 
title( Coefficient of Thrust vs Start of Taper Position’) 
xlabel('Start of Taper Position’) 
ylabel('Thrust Coefficient (CT)’) 
end 
ifget(H SOT IT P7,'Value)--1 
%%%% Plot of Coefficient of Power vs Start of Taper Position %%%% 
figure(17) 
plot(start,Pcoeff),grid 
title('Coefficient of Power vs Start of Taper Position’) 
xlabel('Start of Taper Position) 
ylabel(‘Power Coefficient (CP)’) 
end 
ifget(H SOT IT P8,'Value)--1 
%%%% Plot of Figure of Merit vs Start of Taper Position %%%% 
Приге(16) 
plot(start,figmrt),grid 
title('Figure of Merit vs Start of Taper Position’) 
xlabel('Start of Taper Position") 
ylabel(Figure of Merit") 
end 


case 7 

load extra? 

if get(H WSA IT P1,'Value')== 
% 0/00 Total Pwr reqd vs Wing Span Area%%%% 
figure(11) 
plot(area, Totpwr),hold, grid 
plot(area, КНР, г) 
plot(area, pwrtail,'g‘) 
title( Power Required vs Wing Span Area). 
xlabel("Wing Span Area (ft^2)") 
ylabel('Shaft Horsepower') 
legend('Total Power','Rotor Power','Tail HP',0) 

end 

if get(H WSA IT P2,'Value)--1 
%7070 Aux Thrust and Drag vs Wing Span Area%%%% 
figure(12) 
plot(area, Wingdrag),hold, grid 
plot(area,Rotdrag,'--') 
plot(area,auxthrust,'r’) 
title Aux Thrust and Drag vs Wing Span Area’) 
xlabel( Wing Span Area (ft^2)) 
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ylabel('Drag (1bs)') 
legend( Wing Drag',;'Rotor Drag','Aux Thrust,0) 
end 
if gete(H WSA IT P3,'Value)--1 
%%%% Required Collective Pitch vs Wing Span Area%%%% 
figure(13) 
plot(area,coll pit),grid 
title('Required Collective Pitch vs Wing Span Area") 
xlabel( Wing Span Area (ft^2)^) 
ylabel('Collective Pitch (degrees)') 
end 
if get(H WSA IT P4,'Value)--1 
%%%% Wing Lift vs Wing Span Area %%%%» 
figure(14) 
plot(area, Winglift), grid 
title('Wing Lift vs Wing Span Area?) 
xlabel('Wing Span Area (ft*2)') 
ylabel('Lift (1b)') 
end 
if get(H WSA IT P5,'Value)—1 
%%%% Tail Rotor Power Required vs Wing Span Area %%%% 
figure(15) 
plot(area,pwrtail), grid 
title( Tail Rotor Power Required vs Wing Span Area") 
xlabel('Wing Span Area (ft^2)^ 
ylabel( Tail Rotor Power (HP)^) 
end 
if get(H WSA IT P6,'Value)--1 
%% 07% Plot of Coefficient of Thrust vs Wing Span Area %%%% 
figure(16) 
plot(area, Tcoeff), grid 
title('Coefficient of Thrust vs Wing Span Area’) 
xlabel('Wing Span Area (ft*2)') 
ylabel('Thrust Coefficient (CT) 
end 
if get(H WSA IT P7,'Value)—1 
Y%%% Plot of Coefficient of Power vs Wing Span Area 96969696 
figure(17) 
plot(area,Pcoeff), grid 
title('Coefficient of Power vs Wing Span Area") 
xlabel( Wing Span Area (ft^2)) 
ylabel('Power Coefficient (CP) 
end 
if geteH WSA IT PS$,'Value)--1 
%%%% Plot of Figure of Merit vs Wing Span Area %%%% 
figure(18) 
plot(area,figmrt), grid 
title('Figure of Merit vs Wing Span Area’) 
xlabel("Wing Span Area (ft^2)") 
ylabel('Figure of Merit") 
end 
if get(H. WSA IT P9;,'Value)--1 
%%%% Plot of Disk Loading vs Wing Span Area %%%% 
figure(19) 
plot(area,diskload), grid 
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title(‘Disk Loading vs Wing Span Area’) 
xlabel('Wing Span Area (ft"2)') 
ylabel('Disk Loading‘) 

end 

if geteH WSA IT P10,'Value)--1 
%%%% Plot of Wing Lift As % of Total Lift vs Wing Span Area %%%% 
figure(20) 
plot(area,Lperc),grid 
title('Percent of Total Lift On Wing vs Wing Span Area’) 
xlabel('Wing Span Area (ft*2)') 
ylabel('Percent of Total Lift’) 

end 

case 8 

load extra8 

if get(H RBR IT Pl,'Value)--1 
%%%% Total Pwr reqd vs Main Rotor Radius%%%% 
figure(11) 
plot(mrb radius, Totpwr),hold, grid 
plot(mrb radius, RHP,'r) 
plot(mrb radius, pwrtail,'g) 
title('Power Required vs Main Rotor Radius at ', num2str(fix(Vinf/1.68781)),' Kts']) 
xlabel('Main Rotor Radius (ft)') 
ylabel('Shaft Horsepower') 
text(1.01*min(mrb radius),.995*max(Totpwr),['Omega = ' num2str(omega) ' rad/sec']) 
legend(‘Total Power','Rotor Power',Tail HP',0) 

end 

if get(H RBR IT P2,'Value)--1 
%%%% Aux Thrust and Drag vs Main Rotor Radius%%%% 
figure(12) 
plot(mrb_ radius, Wingdrag), hold, grid 
plot(mrb_ radius, Rotdrag,'--') 
plot(mrb radius,auxthrust,'r') 
title('Aux Thrust and Drag vs Main Rotor Radius) 
xlabel('Main Rotor Radius (ft)') 
ylabel('Drag (Ibs)”) 
legendWing Drag' Rotor Drag' 'Aux Thrust' 0) 

end 

if get(H RBR IT P3,'Value)--1 
%%%% Required Collective Pitch vs Main Rotor Radius %%%% 
figure(13) 
plot(mrb radius,coll pit),grid 
title("Required Collective Pitch vs Main Rotor Radius’) 
xlabel('Main Rotor Radius (ft)') 
ylabel('Collective Pitch (degrees)’) 

end 

if get(H RBR IT P4,'Value)--1 
% oo Tall Rotor Power Required vs Main Rotor Radius 96959696 
figure(14) 
plot(mrb radius,pwrtail),grid 
title(Tail Rotor Power Required vs Main Rotor Radius’) 
xlabel('Main Rotor Radius (ft)') 
ylabel('Tail Rotor Power (HP)') 

end 

if get(H RBR IT P5,'Value")-- 
VY Plot of Figure of Merit vs Main Rotor Radius %%%% 
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figure(15) 
plot(mrb radius,figmrt),grid 
title( Figure of Merit vs Main Rotor Radius") 
xlabel('Main Rotor Radius (ft)') 
ylabel("Figure of Merit") 

end 

if get(H RBR IT P6,'Value)--1 
%%%% Plot of Disk Loading vs Main Rotor Radius %%%% 
figure(16) 
plot(mrb radius,diskload),grid 
title("Disk Loading vs Main Rotor Radius) 
xlabel('Main Rotor Radius (ft)') 
ylabel('Disk Loading 


end 
case 9 

load extra9 

ifget(H RBS IT Pl1,'Value)--1 
Y%Y% Total Pwr regd vs Main Rotor Speed%%%% 
figure(11) 
plot(rot spd, Totpwr),hold,grid 
plot(rot spd, RHP,'r) 
plot(rot spd, pwrtail,'g^ 
title(['Power Required vs Main Rotor Speed at ', num2str(fix(Vinf/1.68781)),' Kts']) 
xlabel('Main Rotor Speed (rad/sec)') 
ylabel('Shaft Horsepower') 
text(1.01*min(rot spd),.995*max(Totpwr), ['Radius = ' num2str(R) ' ft']) 
legend( Total Power','Rotor Power','Tail HP',0) 

end 

if get(H RBS IT P2,'Value)—1 
%Y%% Aux Thrust and Drag vs Main Rotor Speed%%%% 
figure(12) 
plot(rot spd, Wingdrag),hold,grid 
plot(rot spd,Rotdrag,'—' 
plot(rot spd,auxthrust,'r) 
title('Aux Thrust and Drag vs Main Rotor Speed") 
xlabel('Main Rotor Speed (rad/sec)') 
ylabel( Drag (1bs)*) 
legendWing Drag' 'Rotor Drag" 'Aux Thrust',0) 

end 

ifget(H RBS IT P3,'Value)--1 
%%%% Required Collective Pitch vs Main Rotor Speed% Y%%% 
figure(13) 
plot(rot_spd,coll_pit),grid 
title('Required Collective Pitch vs Main Rotor Speed") 
xlabel('Main Rotor Speed (rad/sec)) 
ylabel('Collective Pitch (degrees)') 

end 

ifget(H RBS IT P4,'Value)--1 
%%%% Tail Rotor Power Required vs Main Rotor Speed %%%% 
figure(14) 
plot(rot_spd,pwrtail), grid 
title(Tail Rotor Power Required vs Main Rotor Speed") 
xlabel('Main Rotor Speed (rad/sec)") 
ylabel('Tail Rotor Power (HP)') 


202 


епа 
ifget(H RBS IT P5,'Value)--1 
%%%% Plot of Disk Loading vs Main Rotor Speed 96969496 
figure(15) 
plot(rot_spd,diskload), grid 
title('Disk Loading vs Main Rotor Speed") 
xlabel('Main Rotor Speed (rad/sec)') 
ylabel('Disk Loading‘) 
end 
end 
OUT COUNT-1; 
options 
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APPENDIX AA. CREATE PLOTS FCN.M 


Switchyard callback function for create plots.m 
function create plots fcn(Action) 


9o Switchyard Callback function for create plots.m 
% JANRAD 98 VERSION 5.0 


global PICK REGIME H NO IT $ MATR VECH, NO IT P1H NO IT P2H NO IT P3 
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if nargin 
switch Action 
case 'plots' 

if PICK==0 
create_plots 
close (H_NO_IT) 

end 

if PICK=1 
create_plots 
close (H_AS_IT) 

end 

if PICK==2 
create_plots 
close (H_AL_IT) 

end 

if PICK==3 
create_plots 
close (H_GW_IT) 

end 

if PICK==4 
create_plots 
close (H_BT_IT) 

end 

if PICK==5 
create_plots 
close (H_BTR_IT) 


205 


end 
if PICK—6 
create plots 
close (H SOT IT) 
end 
if PICK==7 
create_plots 
close (H WSA IT) 
end 
if PICK==8 
create plots 
close (H RBR IT) 
end 
if PICK==9 
create plots 
close (H RBS IT) 
end 
case 'back' 
options 
close (H NO IT) 
end 
end 
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APPENDIX AB. STABILITY AND CONTROL.M 


This file creates figure window indicating the stability and control functions have 


not been incorporated. 


function stability and control() 
Фо JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load stability_and_control 


a = figure("Units’normalızed', ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mat0, ... 
'MenuBar , none; ... 
'Name','Stability and Control Not Installed’, ... 
Number tie! off ... 
‘PointerShapeCData', mat], ... 
‘Position’, [0.190625 0.383333 0.446875 0.34375], ... 
‘Tag’, Fig"); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'Callback' 'close(gcf), ... 
'FontSize' 14, ... 
'FontWeight','bold', ... 
'Роѕіпоп!, [0.388112 0.109091 0.202797 0.181818], ... 
'String''OK', ... 
"Tag','Pushbutton1*); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
"‘BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', … 
'Position',[0.0839161 0.515152 0.811189 0.345455], ... 
‘String’, The Stability and Control Function is not yet Avalilable in JANRAD93', ... 
Style text... 
'Tag''StaticText 1’); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
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'FontWeight','bold', ... 
'Position',[0.332168 0.357576 0.318182 0.127273], ... 
'String,' SORRY !,, ... 
"Style ех... 
'Tag’,'StaticText2'); 

b = uicontrol('Parent'a, ... 
'Units' 'normalized', ... 
'ВасКртоипаСо]ог' [0.752941 0.752941 0.752941], ... 


"Розшоп', [0.013986 0.0363636 0.972028 0.933333], ... 


'Style', frame‘, ... 
'Tag', Frame’); 
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APPENDIX AC. ROTOR DYNAMICS.M 


This file creates figure window indicating the rotor dynamics functions have not 


been incorporated. 


function rotor dynamics() 
Фо JANRAD version 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
9o prompt. The M-file and its associated MAT-file must be on your path. 


load rotor dynamics 


а = figure('Units',"normalized', ... 
'Color', [0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'MenuBar' 'none”, ... 
Name "Rotor Dynamics Not Installed", ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
'Position', [0.190625 0.3875 0.45625 0.339583], ... 
"Тар Тірі); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'Callback' 'close(gcf), ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
'Position',[0.389078 0.153374 0.204778 0.184049], ... 
'String','OK', ... 
"Таг", Ризприноп!); 
b = uicontrol( Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
‘Position’, [0.0821918 0.595092 0.849315 0.319018], ... 
‘String’, The Rotor Dynamics Function is not yet Avalilable in JANRAD98', … 
'Style' text”, ... 
"Таг, мапсТехи)); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.75294] 0.75294] 0.752941], ... 
'FontSize',12, ... 
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FontWeight,'bold', ... 
‘Position’, [0.334471 0.429448 0.317406 0.122699], ... 
'String,' SORRY, ... 
'Style','text', ... 
'Tag’,'StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units', normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


Position',[0.0205479 0.0306748 0.962329 0.93865], ... 


'Style','frame!', ... 
"Lag Froome Uu 
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APPENDIX AD. TRIM WARNING.M 


This file creates GUI to inform user that the performance routine did not calculate 


a valid solution. 


function tm warning() 


% GUI window to notify user that conditions will not trim. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load tim warning 


a = figure('Units','normalized', ... 
'Color', [0.8 0.8 0.8], ... 
'"Colormap', mato, ... 
'MenuBar','none!, ... 
'Name',' WARNING!', ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
'Position', [0.184375 0.352083 0.5375 0.404167], ... 
"Lag bei 
b = uicontrol('Parent',a, ... 
"Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'Position', [0.0755814 0.551546 0.825581 0.103093], ... 
‘String’, 'This configuration will not trim "", ... 
"stvle texto. 
"Tag ,'StaticText1*); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'Callback','tim warning fcn', ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
‘Position’, [0.373547 0.0927835 0.229651 0.164948], ... 
'String','OK', ... 
'"Tag',' Pushbutton!'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
"‘BackgroundColor’,[0.752941 0.752941 0.752941], ... 
‘Position’, [0.0755814 0.340206 0.825581 0.170103], ... 
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'String',mat2, ... 
'Style','text', ... 
"Tag, StatıcTextl'); 
b = uicontrol('Parent',a, ... 
"'Units',"normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
"Position',[0.0755814 0.695876 0.825581 0.164948], ... 
'String','Performance Analysis Routine Terminated", ... 
'Style','text', ... 
‘Tag, StaticText 1’); 
b = uicontrol('Parent' a, ... 
'Units''normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 


'Position', [0.0348837 0.0463918 0.924419 0.886598], ... 


'Style','frame!, ... 
'Tag','Framel'); 
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APPENDIX AE. TRIM WARNING FCN.M 


Switchyard Callback for tnim warning.m GUI function. 


function tim warning fcn() 


9o Switchyard Callback function for trim warning.m 
% JANRAD 98 VERSION 5.0 


global H GO H КОРТ Н BK H. RES H MEN 


set(H_GO,'Enable' 'off); 
set(H_RUPT, Enable’, off); 
set(H BK,'Enable','on); 
set(H RES,'Enable','off'); 
зе (Н MEN,'Enable','on); 
close(gcf) 
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APPENDIX AF. EMPTY BOXES.M 


This file creates GUI to inform user that all input edit boxes must contain a entry 


to properly execute performance evaluation. 


function empty boxes() 


% GUI window called if Empty edit boxes exist when continue button is pressed. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load empty boxes 


a = figure('Units' 'normalized", ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'MenuBar 'none”, ... 
'Name''ERROR', ... 
'NumberTitle' 'off, ... 
'PointerShapeCData' matl, ... 
'Position', [0.204688 0.35 0.451563 0.2875], ... 
'Tag', Figl’; 
b = uicontrol('Parent',a, ... 
"Units', normalized', ... 
'Callback' 'close (gcf)', ... 
'FontSize' 14, ... 
‘Font Weight’, ‘bold’, ... 
‘Position’, [0.401384 0.0942029 0.207612 0.202899]. ... 
‘String’,'OK’, ... 
"Tag ,'Pushbutton1*); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize' 16, ... 
'FontWeight','bold', ... 
‘Position’, [0.107266 0.652174 0.795848 0.217391]. ... 
‘String’, ERROR !', ... 
‘Style’, ‘text’, ... 
"Тар StaticText!'); 
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b = wicontrol('Parent',a, … 
'Units' 'normalized', ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
'FontSize' 12, ... 
'Position' [0.107266 0.333333 0.795848 0.311594], ... 
'String' 'All edit boxes must contain a value to create a new file.', ... 
"Style", text, ... 
"Tag','StaücText1'); 

р = wicontrol('Parent',a, … 
"Units''normalized', ... 
‘BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.0380623 0.0507246 0.930796 0.905797], ... 
'Style''frame', … 
"Таг, Егате!); 
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APPENDIX AG. STRUCTURE.M 


This script M-file creates the input structure S USER INPUT. 


% structure.m 


9o Structure Construction for JANRAD98 Performance input.m 
Фо JANRAD 98 VERSION 5.0 


S USER INPUT*struct(... 
'PA'PA,... 
temp'temp,... 

'Vinf', Vinf … 
'GW',GW,... 
'omega',omega,... 
та?" па2.... 
'thetao' thetao.... 
'Swing', SwIng,... 
bwing.bwing,... 
'CLwing',CLwing,... 
'CDowing',CDowIng,... 
'ewing',ewing,... 
'afoil' afoil.... 
aa.. 
"b b,... 
RR... 
смей 
grip. grip... 
'rchord',rchord,... 
ttre 
Det trst.... 
'twist';twist,... 
'wblade',wblade,... 
'nbe',nbe,... 
"Taux', Taux.... 
'Afh' Afh.... 
"АҒУ АҒУ... 
'Svert', Svert,.. 
'bvert',bvert,... 
'CLvert', CLvert,... 
'CDovert', CDovert,... 
'Shoriz',Shoriz,... 
'bhoriz',bhoriz.... 
'CLhoriz',CLhoriz.... 
'CDohoriz',CDohoriz.... 
'tailrot',tailrot,... 
taildisk',taildisk,... 
'CON R'CON R,.. 
СОМ сһога,СОМ сһога,... 
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'CON b,CON b... 


'СОМ отера! СОМ отера, ... 


CON cd CON ei. 
‘CON_It',CON_It); 
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APPENDIX AH. STRUCTUREI.M 


This script M-file creates the output structure S PERF OUTPUT. 


% structurel.m 


% Structure Consruction for JANRAD98 Performance output.m 


'thetao',thetao*57.3,... 


'thetalc'thetalc*57.3,... 
'thetals'thetals*57.3,... 


95 JANRAD 98 VERSION 5.0 

S PERF OUTPUT*-struct(... 
'Dfuse' Dfuse,... %Fuselage drag 
'Hrotor',Hrotor,... %Rotor drag 
'Lwing'Lwing.... “Wing lift 
‘Dwing’,Dwing.... % Wing drag 
'Lhoriz',Lhoriz,... %Horizontal tail lifT 
'Dhoriz' Dhorzz,... “Horizontal tail drag 
'Lvert' Lvert.... % Vertical tail side force 
'Dvert',Dvert,... % Vertical tail drag 
'alphaT" alphaT*57.3,... 9oTip path angle 
'betao',betao*57.3,... %Rotor coning angle 
"EZ FI. “Location of mean thrust 


VoRotor Collective pitch at .7 r/R 
“lst lat cyclic term-A1 (deg) 
“olst long cyclic term-B1 (deg) 


‘solidity’ solidity,... “solidity (sigma) 

BED %Disk loading 

PM EM `. “Figure of Merit 

СТ 92. СТ $12... %CT/sigma 

СО ag CO ag 9o CQ/sigma 

СН я СН Яр,... %CH/sigma 
‘Machtip',Machtip.... %Tip mach of the adv. blade 
"md mt. %Advance ratio 

TIR “Rotor thrust required (TPP) 
‘Protor ,Protor,... “Rotor power required 
'Qrotor',Qrotor); % Rotor torque 
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APPENDIX AI. STRUCTURE2.M 


This script M-file creates the vector structure S MATR VEC. 


% structure2.m 


% Structure Consruction for JANRAD98 Performance_output.m 


% JANRAD 98 VERSION 5.0 
S_MATR_VEC=struct(... 
ТГ %radial distance 
'dr',dr,... %differential radial distance 
De psi,... %azimuth 
SEN]... “induced velocity 
theta',theta,... %ocollective pitch 
'betat' betat.... ^ Voconing angle 
'alpha' alpha,... “angle of attack 
'Tpsi' Tpsi,... “Thrust at azimuth position 
"Npsi', Npsi.... “Normal Force (lift) at azimuth position 
'Mpsi' Mpsi,... %Thrust Moment at azimuth position 
'DMpsi',DMpsi,...  9eDrag Moment at azimuth position 
di dh: %incremental Thrust 
ONT ON. `. “incremental Normal Force (lift) 
OM дМ.... %incremental Thrust moment 
ад ар... %incremental drag 
'cblade' cblade.,... “blade chord 
CL Cepu %incremental CL values 
ср ер: %incremental CD values 
"Ке! Кей); %Effective Blade Radius 
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APPENDIX AJ. UNSTRUCTURE.M 


This script M-file decomposes the S PERF INPUT structure into 36 separate 
input parameter variables. These variables are corrected to proper units used in Perf.m 


computations. 


9o unstructure.m 


% Structure De-Consruction for JANRADO98 Perf. m 
% JANRAD 98 VERSION 5.0 


PA-S PERF INPUT PA, 
temp-S PERF INPUT.temp; 
Vinf-S PERF INPUT.Vinf, 
GW=S _PERF_ _INPUT.GW; 
omega-S PERF INPUT.omega; 
naz-S PERF INPUT.naz, 
thetao-S PERF INPUT.thetao; 
Swing=S_PERF_ INPUT Swing; 
bwing=S PERF INPUT .bwing; 
CLwing=S_PERF INPUT. CLwing, 
CDowing-S PERF INPUT.CDowing, 
ewing-S PERF INPUT.ewing, 
afoil=S_ PERF INPUT.afoil; 
a-S PERF INPUT.a; 
b-S PERF INPUT.b; 
R-S PERF INPUT.R; 
е=5 РЕКЕ INPUT.e; 
grp-S PERF INPUT grip; 
rchord-S PERF INPUT.rchord; 
tr-S PERF INPUT. tr; 
trst=S_PERF INPUT. trst; 
twist=S . PERF. INPUT.twist; 
wblade-S PERF INPUT.wblade; 
nbe- S PERF INPUT. nbe; 
Taux-S PERF INPUT.Taux; 
Afh-S | PERF _INPUT.Afh; 
Afv-S PERF INPUT.Afv; 
Svert=S_PERF INPUT. Svert; 
bvert-S PERF INPUT.bvert; 
CLvert-S PERF INPUT.CLvert, 
CDovert-S8 PERF INPUT.CDovert; 
Shorz-S PERF INPUT.Shoriz; 
bhoriz=S PERF INPUT bhoriz; 
CLhorizS8 PERF INPUT.CLhoriz, 
CDohoriz-8 PERF INPUT.CDohoriz, 
tailrot-S PERF INPUT. tailrot; 
taildisk-S PERF INPUT.taildisk; 
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CON R-S PERF INPUT.CON К; 

CON chord-S PERF INPUT.CON chord; 
СОМ Б=5 РЕКЕ INPUT.CON b; 

CON omega-S PERF INPUT.CON omega; 
СОМ сі=5 РЕКЕ ІЧРОТ.СОМ са; 

CON It-S PERF INPUT.CON It; 
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APPENDIX AK. UNSTRUCTUREI.M 


This script M-file decomposes the S USER INPUT structure into 36 separate 
input parameter variables. These variables are the actual values the user types or loads 


from a previously saved file 


% unstructurel.m 


% Structure De-Consruction for JANRAD98 Performance_input.m 
% JANRAD 98 VERSION 5.0 


PA=S_USER_INPUT.PA; 
temp-S USER INPUT.temp; 
Vinf=S USER INPUT. Vinf; 
GW-S USER INPUT.GW; 
omega-S USER INPUT.omega; 
naz-S USER INPUT.naz, 
thetao-S USER INPUT.thetao; 
Swing-S USER INPUT.Swing; 
bwing-S USER INPUT.bwing; 
CLwing=S USER INPUT.CLwing; 
CDowing-S USER INPUT.CDowing; 
ewing-S USER INPUT.ewing; 
afoil=S USER INPUT .afoil;, 
a-S USER INPUT.a; 
b-S USER INPUT.b; 
R=S USER INPUT.R; 
e=S USER INPUT.e; 
gnip=S USER INPUT.grip; 
rchord=S USER INPUT .rchord; 
tr=S USER INPUT tr; 
trst-8 USER INPUT.trst, 
twist-S USER INPUT.twist; 
wblade-S USER INPUT.wblade; 
nbe-S USER INPUT.nbe; 
Taux-S USER INPUT.Taux; 
Afh-S USER INPUT. Afh; 
Afv-S USER INPUT.Afv; 
Svert-S USER INPUT.Svert; 
bvert-S USER INPUT.bvert; 
CLvert-S USER INPUT.CLvert;, 
CDovert- S8 USER INPUT.CDovert; 
Shorz-S USER INPUT.Shoriz, 
bhoriz-S USER INPUT.bhoriz; 
CLhoriz=S USER INPUT.CLhoriz; 
CDohonz=S USER INPUT.CDohoriz; 
taildisk=S USER INPUT .taildisk; 
tailrot=S USER INPUT.tailrot; 
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CON R-S USER INPUT.CON R; 

CON chord-S USER INPUT.CON chord; 
CON b-S USER INPUT.CON b; 

CON omega-S USER INPUT.CON omega; 
CON cd-S USER INPUT.CON cd; 

CON It-S USER INPUT.CON lt; 
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APPENDIX AL. UNSTRUCTURE2.M 


This script M-file decomposes the S PERF OUTPUT structure into 25 separate 
output parameters. These variables are displayed in the performance output figure 


window. 


% unstructure2.m 


% Structure De-Consruction for JANRAD98 performance_output.m 
% JANRAD 98 VERSION 5.0 


Dfuse=S_PERF_OUTPUT.Dfuse; 
Hrotor=S_PERF_OUTPUT.Hrotor; 
Lwing-S PERF OUTPUT.Lwing; 
Dwing-S PERF OUTPUT.Dwing; 
Lhorizz8 PERF OUTPUT.Lhoriz; 
Dhorizz8 PERF OUTPUT.Lhoriz; 
Lvert-8 PERF OUTPUT.L vert; 
Dvert-S PERF OUTPUT.Dvert; 
alphaT-S PERF OUTPUT.alphaT; 
betao-S PERF. OUTPUT. betao; 
rI2-S РЕКЕ OUTPUT rT2; 

thetao-S PERF OUTPUT ..thetao; 

thetalc-S PERF OUTPUT ..thetalc; 
Шеіа15-5 PERF. OUTPUT ..thetals; 

solidity-S РЕКЕ OUTPUT. solidity; 
DL-S PERF OUTPUT.DL; 
ЕМ-5 РЕКЕ OUTPUT.FM; 

CT sig-S PERF OUTPUT.CT sig; 

CQ sig-S PERF OUTPUT.CQ sig; 
CH sig-S PERF OUTPUT.CH sig; 
Machüp-S PERF OUTPUT.Machtip; 
mu-S PERF OUTPUT.mu; 
TS PEPF OUTPUT T 
Protor=S_PERF_OUTPUT.Protor; 

Qrotor=S_PERF_OUTPUT.Qrotor; 
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APPENDIX AM. UNSTRUCTURE3.M 


This script M-file decomposes the S MATR VEC structure for use in the print 


and save commands. 


% unstructure3.m 


% Structure De-Consruction for JANRAD98 
% JANRAD 98 VERSION 5.0 


r- S MATR VECr, 

dr-S MATR VECar, 

psi= S_MATR_VEC.psı; 

уүі- 5 МАТЕ УЕСМІ; 

theta= S MATR_VEC. theta; 
betat= S MATR_VEC.betat; 
alpha- S MATR VEC.alpha; 
Tpsi- S MATR VEC.Tpsi; 
Npsi- S МАТЕ VEC.Npsi; 
Mpsi- S MATR VEC.Mpsi; 
DMpsi- S MATR VEC.DMpsi; 
dT- S MATR VEC.qT, 

dN- S MATR VEC.dN; 

dM- S MATR VEC.dM, 

dD- S MATR VEC.dD, 
cblade- S MATR VEC.cblade; 
CL- S MATR VEC.CL; 

CD- S MATR VEC.CD; 
Reff- S MATR VEC.Reff, 
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APPENDIX AN. UNSTRUCTURES.M 


This script M-file decomposes the S FIT TR structure for use in Perf.m 


0% unstructure5.m 


% Structure De-Consruction for JANRAD98 compound tailrotor.m 
% JANRAD 98 VERSION 5.0 


FIT_R= S_FIT_TR_INPUT.FIT_R; 

FIT_cd= S_FIT_TR_INPUT.FIT_cd; 

FIT sigma- S FIT TR INPUT.FIT sigma; 
FIT omega- S FIT TR INPUT.FIT omega; 
FIT It- S FIT TR INPUT.FIT It; 
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APPENDIX AO. PERF.M 


This script M-file is the primary computational routine for JANRAD 98. It is 
launched from either the iteration method fcn.m — or iteration parameter fcn.m 


Switchyard Callback function. 


%  Perf.m 


% Main Performance computation routine. 
% JANRAD 98 VERSION 5.0 


global S PERF INPUT S PERF OUTPUT S MATR VECH RADSPC NL TWIST VAL 


if S PERF. INPUT.grip « le-10, 
S PERF INPUT.grip-1e-10; 
end 


if S PERF INPUT.Swing « le-10, 
S PERF INPUT.Swing-1e-10; 
end 


if S PERF INPUT.bwing < le-10, 
S PERF INPUT .bwing=le-10;, 
end 


if S PERF INPUT.ewing « le-10, 
S PERF INPUT.ewing-le-10; 
end 


if S PERF INPUT.Shoriz « le-10, 
S PERF INPUT.horiz-1e-10; 
end 


if S PERF INPUT.bhoriz < le-10, 
S PERF INPUT.bhoriz-1e-10; 
end 


if S PERF INPUT.Svert « 1е-10, 
S PERF INPUT.Svert-1e-10; 
end 


if S PERF INPUT.bvert « le-10, 
S PERF INPUT.bvert-1e-10; 
end 


S PERF INPUT.Vinf-S PERF INPUT.Vinf*1.68781; 


S PERF INPUT.twist-abs(S PERF INPUT.twist)/57.3; 
S PERF INPUT.thetao-S PERF INPUT.thetao/57.3; 
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unstructure 


switch PICK 
case 1 
if isempty(MINUM) 
MINUM=0; % sets min airspeed default to 0 kts 
end 
if isempty(MAXUM) 
MAXUM=160; % sets max airspeed default to 160 kts 
end 
if isempty(INTER) 
INTER=20; % sets INTERval default to 20 kts 
end 
if MINUM » MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER); 
else 
INTER=abs(INTER ); 
end 
doit1-'airspd- itervar;'; 
doit2="Vinf=airspd*6080.2/3600;'; % converts kts to ft/s 
m=(MAXUM-MINUM)INTER+1; % computes reqd nbr of elements for vectors 


speed=zeros(1,m); % vector for each airspeed values 
mu=zeros(1,m); % vector for adv ratio values 
Lperc=zeros(1,m); % vector for wing lift percent values 
ctonsig=zeros(1,m); % vector for CT/sigma values 
LoverD=zeros(1,m); % vector for tot acft W/De 


theone-"airspd'; 


case 2 
if isempty(MINUM) 
MINUM=0; % sets min altitude default to O ft 
end 


if isempty(MAXUM) 
MAXUM=153000; % sets max altitude default to 15000 ft 


end 


if isempty(INTER), 
INTER=1000; % sets INTERval default to 1000 ft 
end 
if MINUM » MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER); 
else 
INTER=abs(INTER); 
end 
doit 1='PA=itervar;'; 
doit2='temp = 59-1.9811le-3/.5555*PA;'; % sets correct ISA temp 
% for given alt (deg F) 
% note: 59=SLS, 103=trop 
m=(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
altitude=zeros(1,m); 
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theone='PA"; 


case 3 
if isempty(MINUM) | 
MINUM- 10000; % sets min GW default to 10000 Ibs 
end 
if isempty(MAXUM) 
MAXUM-20000; % sets max airspeed default to 20000 165 
end 
if isempty(INTER), 
INTER=2000; % sets INTERval default to 2000 Ibs 
end 
if MINUM » MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER); 
else 
INTER=abs(INTER), 
end 
doit1-'GW^itervar;'; 
doit2-7' 
m=(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
wt=zeros(1,m); % vector for GW values 
Tcoeff=zeros(1,m); % vector for Coeff of Thrust values 
Pcoeff=zeros(1,m); % vector for Coeff of Power values 
figmrt=zeros(1,m); % vector for Figure of Merit values 
Шеопе-" СМ”, 


if REGIME--1&PA--0&Vinf«-16.9 
Ptige=zeros(1,m); 
end 


case 4 
if isempty(MINUM) 
MINUM=0; % sets min blade twist default to 0 deg 
end 
if isempty(MAXUM) 
MAXUM--12; % sets max blade twist default to -12 deg 
end 
if isempty(INTER), 
INTER--2; % sets INTERval default to -2 deg 
end 
if MINUM > MAXUM %ensures INTERval is the correct sign 
INTER=-abs(INTER); 
else 
INTER=abs(INTER), 
end 
doitl1="TWIST=itervar;’; 
doit2='twist=abs(T WIST)/57.3;', 
m=abs(MAXUM-MINUM)/abs(INTER); % computes reqd nbr of elements for vectors 
thetat=zeros(1,m); % vector for blade twist values 
theone=TWIST'; 


case 5 


if isempty(MINUM) 
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MINUM=1; % sets min blade taper ratio default to 1 
end 


if isempty(MAXUM) 
MAXUM=0.5; % sets max blade taper ratio default to 0.5 


end 


if isempty(INTER), 
INTER--0.1; % sets INTERval default to -0.1 


end 
if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER=-abs(INTER); 
else 
INTER=abs(INTER ); 
end 
doitl-'tr-itervar;'; 
doit2="' *; 
m=abs(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
taper=zeros(1,m); % vector for blade taper ratio values 


theone='tr'; 


case 6 


if isempty(MINUM) 
MINUM=0.1; % sets min blade twist default to 0.1 r/R 


end 


if isempty(MAXUM) 
MAXUM=0.9; % sets max blade twist default to 0.9 r/R 


end 


if isempty(INTER), 
INTER=0.1; % sets INTERval default to 0.1 r/R 


end 
if MINUM > MAXUM % ensures INTERval is the correct sign 


INTER=-abs(INTER); 
else 
INTER=abs(INTER); 
end 
doit1-'trst-itervar;'; 
doit2="' '; 
=abs(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
start=zeros(1,m); % vector for taper ratio start position values 


theone-'trst'; 


case 7 


if isempty(MINUM) 
MINUM-50; % sets min wing area default to 50 sq ft 


end 


if isempty(MAXUM) 
MAXUM=30; Vo sets max wing area default to 80 sq ft 


end 
if isempty(INTER), 
INTER=S; % sets INTERval default to 5 sq ft 


end 
if MINUM > MAXUM “ ensures INTERval is the correct sign 


INTER=-abs(INTER ); 
else 
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INTER-abs(INTER); 


end 
if isempty( AR) 

АК-6, % sets aspect ratio default to 6 
end 


doit 1='Swing=itervar;’; 
doi-'bwing-sqrt(AR*Swing) % computes wing span given AR and wing area 
m=abs(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
area=zeros(1,m); % vector for wing area values 


theone-'Swing'; 


case 8 


if isempty(MINUM) 
MINUM=20; % sets min main rotor radius to 20 feet 


end 
if isempty(MAXUM) 
MAXUM=36; % sets max main rotor radius to 36 feet 
end 
if isempty(INTER), 
INTER=2; % sets INTERval default to 2 feet 
end 
if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER--abs(INTER), 
else 
INTER=abs(INTER); 
end 
doit 1='R=itervar,'; 
doit2=' '; 
m=abs(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
mrb radius-zeros(1,m); % vector for rotor radius values 


theone='R’; 


case 9 
if isempty(MINUM) 
MINUM-20; % sets min main rotor spd to 20 rad/sec 
end 
if isempty(MAXUM) 
MAXUM-36; % sets max main rotor spd to 36 rad/sec 
end 
if isempty(INTER), 
INTER>2; 9o sets INTERval default to 2 rad/sec 
end 
if MINUM > MAXUM % ensures INTERval is the correct sign 
INTER--abs(INTER); 
else 
INTER=abs(INTER); 
end 
doit 1='omega=itervar;’; 
doit2-' * 
m=abs(MAXUM-MINUM)/INTER+1; % computes reqd nbr of elements for vectors 
rot spd-zeros(1,m); % vector for rotor speed values 
theone-'omega', 


237 


case 0 
MINUM=1; %\ 
MAXUM=1; %> using these values the for loop is effectively 
INTER-1; %/ non-existent - will go through only once 
doitl-' * ' 
doit2=" '; 

end 


%%% common vectors for compilation of iterative data %%% 

if PICK~=0 
thrust=zeros(1,m); 
auxthrust=zeros(1,m); 
RHP=zeros(1,m); 
Totpwr=zeros(1,m); 
angle=zeros(1,m); 
Drag=zeros(1,m); 
RotDrag=zeros(1,m); 
Wingdrag=zeros(1,m); 
Winglift=zeros(1,m); 
coll pit-zeros(1,m); 
lat coeff-zeros(1,m); 
long coeff-zeros(1,m); 
Auxpwr-zeros( 1,m); 
diskload-zeros(1,m); 
Afv1=zeros(1,m); 
rot spd-zeros(1,m); 

end 


switch tailrot 
case 1 
9/99/0)/o vectors for Conventional Tail calculations 969/996 
if PICK—0 
thrtail-zeros( 1,m); 
pwrtail-zeros( 1,m); 
end 
Atail - pi*CON R^2; % Area of tail 
Atailbl-2*CON R*CON chord; 
sigmatail = Atailbl/Atail; % Solidity of tail 
case 2 


%%% vectors for Fan-In Tail calculations %%% 
if PICK~=0 

Tfin-zeros(1,m); 

Tfan=zeros(1,m); 

pwrfani-zeros(1,m); 

pwrfanp=zeros(1,m); 

pwrfant=zeros(1,m); 


end 

%%% Fan-in-Tail Parameters %%% 
unstructure5 

Afan = pi*FIT_R”2; % Area of fan 
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сазе 3 
end 


%%% Beginning of Iteration Loop %%% 
р-0; 
for itervar - MINUM:INTER:MAXUM 
eval(doit1) % reads and evaluates the string 'doitl' assigned above 
9 assigns itervar to the reqd var needed to complete iteration 
eval(doit2) 9o reads and evaluates the string 'doit2' assigned above 
% used if input variable needs some type of manipulation 
рер+ 1; % used to move to next vector element 
set(H STATUS,'String,'ROTOR PERFORMANCE ROUTINE" 
tic 
ве (Н STATUSI,'String,' START ELAPSED TIME’) 
pause(3) 
%%% account for vertical drag on wing and horizontal tail %%% 
if taildisk—=1 
Afvl=Afv+3*(Swing+Shoriz); % this assumes a vertical Cd of 1.2 for the 
elseif taildisk==2 % wing and horiz tail and a vertical Cd of 
Afvl=Afv+3*Swing %0.4 for the fuselage (i.e. 1.2/.4 = 3) 
end % thus making wing/tail effectively larger 
% when hvr thrust calc using Cd=0.4 
trim 


%%% *** Calculation of output parameters *** %%% 


load perftemp % Eccles addition - program was not recognizing 
9o mchord and DMpsi. 

Paux-(Taux*Vinf)/(550*AUXEFF); 9eAuxiliary Power reqd 
Protor=mean(DMpsi)*b*omega/550; % Rotor pwr reqd, NOT total pwr 
Qrotor=mean(DMpsi)*b; % Rotor torque reqd 
solidity=b*mchord/(pi*R); 
CQ-Orotor/(Adisk*rho* Vtip^2*R); 
CH-Hrotor/( Adisk*rho* Vtip^2); 
СТ sig-CT/solidity; 
CQ sig-CQ/solidity; 
CH sig-CH/solidity; 
Machtip=(Vtip*cos(alphaT)+ Vinf)/(49.05*sqrt(temp+460)); 
if Vinf < 16.9, 

DL-T/(pi*R^2); 

FM-7(T*sqrt(DL/(2*rho)))/(550*Protor); 
else 

DL=0; 

FM=0; 
end 
switch tailrot 
case 1 
% Y 7% Conventional Tail Rotor Power Calculations 
Thrustt- Qrotor/CON 1t; Фо Thrust reqd for anti-torque 


vit-sqrt(Thrustt/2*rho* Atail); 
Ptail=(Thrustt*vit/550)+(((rho* Atailbl*((CON_omega*CON_R)*3)*CON_cd/8)/550)*(1+3*mu‘2)); 
Pacc = 106.25+0.01275*Protor; % Pwr for accessories 
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Ptot = Protor+Ptail+Pacc+Paux; % Total pwr reqd 

CP-Ptot* 550/(Adisk*rho* Vtip^3); % Coefficient of Pwr based on Ptot 

case 2 

%%%% Compute Fan and Access/Xmsn Power Reqd in Fwd Fit %%%% 

vifan = abs(sqrt((Qrotor/FIT_It-Lvert)/(rho* Afan))),; % use abs in case complex 
(Qrotor/FIT_It-Lvert<0); 


Thrustf = Qrotor/FIT_It; % Thrust reqd for anti-torque 

Pfani 7 0.5*rho* Afan*vifan^3/550; % Fan induced pwr 

Pfanp = rho* Afan*Vtip^3*FIT sigma*FIT cd/4400; 96 Fan profile pwr 

Pacc = 106.25+0.01275*Protor, % Pwr for accessories 

Ptot = Protor+Pfani+Pfanp+Pacc; % Total pwr reqd 
CP-Ptot*550/(Adisk*rho* Vtip^3); % Coefficient of Pwr based on Ptot 
case 3 

end 


%%%% НІСЕ total pwr 96969696 


if REGIME-- 
viave-sqrt(DL/(2*rho)); % Induced vel - hoge 
delpwr-T*viave*0.23/550; % Decr in pwr due to grd effect 
Prtrige-Protor-delpwr; % Rotor pwr - hige 
Tige=Prtrige* 550/(omega*lfan); % Rotor thrust - hige 
vifige=sqrt(Tige/(rho* Afan)); % Induce vel - hige 


Pfanige-0.5*rho* Afan*vifige^3/550; % Fan pwr - hige 

Paccige=106.25+0.01275*Prtrige; % Access pwr - hige 

Ptotige=Prtrige+Pfanige+Pfanp+Paccige; % Tot pwr - hige 
end 


WonDe=GW/(550*Ptot/(Vinf+.1)); % Total acft W/De (lift/drag) 
% .1 added for case when Vinf=0 
%%% Collecting and vectoring all the calculated data %%% 
%%% vectors specific to desired iteration 
switch PICK 
case 1 
speed(p)-airspd; % vector of airspeeds 
mu(p)-Vinf/Vtip; % vector of advance ratios 
ctonsig(p)=CT_sig; % vector of CT on sigma 
LoverD(p)=WonDe; % vector of W/De 
rot_spd(p)=omega; % vector of main rotor speeds 


case 2 
altitude(p)=PA; % vector of altitudes 


case 3 
wt(p)- GW; % vector of GW 


case 4 
thetat(p)- TWIST; % vector of blade twist 


case 5 
taper(p)-tr; % vector of taper ratio 


case 6 
start(p)=trst;  % vector of starting position of blade taper 
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сазе 7 

area(p)- Swing; 96 vector of wing wetted area 
case 8 

mrb radius(p)-R; 96 vector of main rotor radius 
case 9 

rot spd(p)-omega; ^6 vector of main rotor speeds 
end 
if REGIME-- 

Ptige(p)-Ptotige; ^o vector of total hp in hige 
end 


%%% vectors common to all iterations 
if PICK-=0 
thrust(p)=T; % vector of main rotor thrust 
auxthrust(p)=Taux; % vector of Aux Thrust 
RHP(p)=Protor % vector of rotor hp reqd 
Totpwr(p)=Ptot % vector of total hp reqd 
Auxpwr(p)=Paux; % vector of Aux hp rqd 
angle(p)=alphaT*57.3; 96 vector of tip path plane angle 
Wingdrag(p)-Dwing; % vector of wing drag 
Drag(p)=Drotor+Dfuse+Dvert+Dhoriz+Dwing; 96 vector of tot acft drag 
Winglift(p)=Lwing; %vector of wing lift 
Tfin(p)=Lvert; % vector of vertical fin lift 
Lperc(p)=Lwing/GW*100;% vector wing lift percentage 
if tailrot==1 
thrtail(p)=Thrustt; % vector of tail thrust 
pwrtail(p)=Ptail; % vector of tail power 
else tailrot==2 
Tfan(p)=Qrotor/lfan; % vector of fan thrust 
pwrfani(p)=Pfani; % vector of fan induced pwr 
pwrfanp(p)-Pfanp;96 vector of fan profile pwr 
pwrfant(p)=Pfani+Pfanp;  % vector of fan total pwr 
end 


Rotdrag(p)-Hrotor % vector of rotor drag 

Tcoeff(p)=CT; % vector of Coefficient of Thrust 
Pcoeff(p)=CP; % vector of Coefficient of Power 

figmrt(p)- FM; % vector of Figure of Merit 

diskload(p)- DL; 96 vector of Disk Loading 

coll pit(p)-thetao*57.3;  96vector of collective pitch@.7R 
lat_coeff(p)=thetalc*57.3; vector of Ist lateral cyclic term 
long_coeff(p)=thetals*57.3; %vector of 1st longitudinal cyclic term 


“eval(‘theone’); % displays current value of iterative variable 
end % 'end' needed to complete the ‘for’ loop 
end % this is the 'end' needed to complete the 'for' loop 


%%%% save iteration data for future processing 9/69/69/09/09/09/09/09/09/09/09/09/0)/09/09/0/0)/0)/0)/09/0./0)/0)/0./0)/ 0/0 
%%% format: save <filename> varl var2 var3 % 

%%% (note: all variables must be valid or will get error) % 

%%% Works well to create short m-file to graph this calculated data % 

%00% just use load «filename^' at the beginning of the file to % 
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%%% read all the vectors which are stored in the .mat file % 
if PICK-=0 
save output Totpwr angle RHP thrust Wingdrag Drag Rotdrag coll pit lat coeff long coeff... 
figmrt Tcoeff Pcoeff Winglift Auxpwr auxthrust Lperc diskload 
if tailrot== 
save tailop thrtail pwrtail 
else 
save tailop Tfin Tfan pwrfani pwrfanp pwrfant 
end 
end 
switch PICK 
case 1 
save extral speed mu ctonsig LoverD Lperc RHP Tcoeff Pcoeff... 


figmrt m rot spd 


case 2 
save extra2 altitude 


case 3 
save extra3 wt Tcoeff Pcoeff figmrt 


case 4 
save extra4 thetat 


case 5 
save extra5 taper 


case 6 
save extraó start 


case 7 

save extra? area 
case 8 

save extra8 mrb radius 
case 9 

save extra9 rot spd 
end 
if REG == 

save extralO Ptige 
end 


set(H STATUS, String,'COMPLETING CALCULATIONS ...) 
set(H_ STATUS 1,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS’) 


pause(3) 

fid=fopen(‘print_temp’,'w+'); 

fprintf(fid, '\t *** MODIFIED USER INPUT ***\n\n’); 
fprintf(fid, t Forward velocity = %6.0f kts\n', Vinf/1.69); 
fprintf(fid, vu Temperature = %6.0f degs F\n' temp); 
fprintf(fid, \t Pressure altitude = %6.0f ft\n',PA),; 
fprintf(fid,'\t Gross weight = %6.0f Ibs\n', GW); 
fprintf(fid, t Number of blades = %6.0f \n',b); 
fprintf(fid,'\t Rotor radius = %6.2f ft\n',R); 
fprintf(fid,'\t Blade root chord = %6.2f ft\n'rchord); 


242 


ifNL TWIST. VAL-- 


fprintf(fid,^t 

fprintf(fid,'\t 
else 

fprintf(fid,^t 
end 
fprintf(fid, \t 
fprintf(fid, \t 
fprintf(fid, '\t 
fprintf(fid, t 
fprintf(fid, \t 
fprintf(fid,^t 
fprintf(fid, t 
fprintf(fid, \t 
fprintf(fid, Y 
fprintf(fid, ^t 
fprintf(fid,^t 
fprintf(fid,t 
fprintf(fid,Nt 
fprintf(fid,^t 
fprintf(fid,^t 
fprintf(fid,^t 
fprintf(fid, 
fprintf(fid, ^t 
fprintf(fid, ^t 
fprintf(fid, ^t 
рипа, t 
fprintf(fid,^t 
fprintf(fid, t 
fprintf(fid,t 
fprintf(fid,^t 
fprintf(fid,'\t 
fprintf(fid, t 


Blade twist = \n'); 
906.2f degsn', NL TWIST*57.3); 


Blade twist = %6.2f degs\n',-1*twist*57.3), 


Blade lift curve slope = %6.2f \n',a); 
Blade weight = %6.2f Ibs\n',wblade); 
Rotational velocity = %6.2f rads/sec\n',omega); 
Blade grip length = %6.2f ftn' grip); 
Hinge offset = %6.2f ft\n',e); 
Equivalent flat plate area = %6.2f ft*2\n', Afh); 
Vertical projected area = %6.2f ft^2\n', Afv); 
Wing area = %6.2f ft*®2\n',Swing); 
Wing span = %6.2f ft\n',bwing); 
Wing CL = %6.2f \n', CL wing), 
Wing CDo = %6.4f \n',CDowing),; 
Wing efficiency factor = %6.2f \n',ewing); 
Horizontal tail area = %6.2f ft*2\n',Shoriz); 
Horizontal tail span = %6.2f ftn' bhoriz); 
Horizontal tail CL = %6.2f \n',CLhonz); 
Horizontal tail CDo = %6.4f \n',CDohoriz); 
Vertical tail area = %6.2f ft^2Wn' Svert), 
Vertical tail span = %6.2f ft\n',bvert); 
Vertical tail CL = %6.2f \n',CLvert); 
Vertical tail CDo = %6.4f \n', CDovert); 
Auxiliary thrust = %6.0f Ibs\n',Taux); 
Number of Azimuths = %6.0f \n'‚naz); 
Collective Pitch = %6.2f degs\n',thetao*57.3); 
Airfoil Type = %6.0f \n',afoil); 
Taper Ratio = %6.2f \n’,tr); 
Taper Ratio Starts At = %6.2f ft\n',trst); 
Number of Blade Elements = %6.0f \n' nbe); 


fprintf(fid,^t Tail Under Main Rotor (1-yes 2-no) = %6.0f \f, taildisk); 


fclose(fid); 


% *** output to disk (text file) *** 


fid-fopen( print temp U wi 


fprintf(fid, t 
fprintf(fid,N 
fprintf(fid, 
fprintf(fid,\t 
fprintf(fid,\t 
fprintf(fid,N 
fprintf(fid, 
fprintf(fid,'\t 


*** RESULTS ***\n\n'); 
Forward velocity = %6.0f kts\n', Vinf/1.69); 
Temperature = %6.0f degs F\n',temp); 
Pressure altitude = %6.0f ft\n', PA); 
Gross weight = %6.0f Ibs\n', GW); 
Number of blades = %6.0f \n',b); 
Rotor radius = %6.2f ft\n',R); 
Blade mean chord = %6.2f ftin',mchord), 


if NL_TWIST_VAL== 


fprintf(fid, ^t 
fprintf(fid, t 
else 


Blade twist = Mm”); 
%6.2f degsin',NL_TWIST*57.3), 
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fprintí(fid, M Blade twist = %6.2f degsn',-1*twist*57,3); 
end 


fprintf(fid,\t Blade lift curve slope = %6.2f \n’,a); 

fprintf(fid, t Blade weight = %6.2f lbs\n',wblade); 
fprintf(fid, ^t Rotational velocity = %6.2f rads/sec\n',omega); 
fprintf(fid, \t Blade grip length = %6.2f ft\n', grip); 
fprintf(fid, \t Hinge offset = %6.2f ft\n',e); 


fprintf(fid,t Equivalent flat plate area = %6.2f ft*2\n', Afh); 
fprintf(fid,\t Vertical projected area = %6.2f ft^2\n', Afv); 


fprintf(fid, t Wing area = %6.2f ft^2\n', Swing); 
fprintf(fid, ^t Wing span = %6.2f ft\n',bwing); 
fprintf(fid, ч Wing CL = %6.2f \n',CL wing); 
fprintf(fid, t Wing CDo = %6.4f \n',CDowing); 


fprintf(fid,'\t Wing efficiency factor = %6.2f \n',ewing); 
fprintf(fid,^t Horizontal tail area = %6.2f ft*2\n',Shoriz); 
fprintf(fid, \t Horizontal tail span = %6.2f ft\n',bhoriz); 
fprintf(fid, t Horizontal tail CL = %6.2f \n',CLhoriz); 
fprintf(fid, t Horizontal tail CDo = %6.4f \n',CDohoriz); 
fprintf(fid, t Vertical tail area = %6.2f ft*2\n',Svert); 
fprintf(fid, ^t Vertical tail span = %6.2f ft\n',bvert); 


fprintf(fid,^t Vertical tail CL = %6.2f m' CLvert); 
fprintf(fid, t Vertical tail CDo = %6.4f \n',CDovert); 
рип (Ва, t Fuselage drag = %6.0f lbsin' Dfuse); 
fprintf(fid, \t Rotor drag = %6.0f Ibs\n',Hrotor); 
fprintf(fid, \t Wing lift = %6.0f lbs\n', Lwing); 
fprintf(fid, \t Wing drag = %6.0f Ibs\n', Dwing); 


fprintf(fid,^t Horizontal tail lift = %6.0f Ibs\n',Lhoriz); 
fprintf(fid,'\t Horizontal tail drag = %6.0f lbs\n',Dhoriz); 
fprintf(fid,\t Vertical tail side force = %6.0f Ibs\n',Lvert); 
fprintf(fid, t Vertical tail drag = %6.0f lbs\n',Dvert); 
fprintf(fid,^t Auxiliary thrust = %6.0f lbs\n', Taux); 
fprintf(fid,^t Tip path angle = %6.2f degsin' alphaT*57.3); 
fprintf(fid, t Rotor coning angle = %6.2f degs\n'‚betao* 57.3); 
fprintf(fid,’\tLocation of mean thrust (r/R) = %6.2f \n',rT2); 
fprintf(fid,t Collective pitch at .7 r/R = %6.2f degs\n',thetao*57.3); 
fprintf(fid,'\t lst lat cyclic term-A1 (deg) = %6.2f \n',thetalc*57.3); 
fprintf(fid,'\tist long cyclic term-B1 (deg) = %6.2f \n',thetals*57.3); 


fprintf(fid, \t solidity = %6.3f \n' solidity); 
fprintf(fid, t Disk loading = %6.2f Ibs/ft*2\n',DL); 
fprintf(fid, \t Figure of Merit = %6.2f \n',FM); 
fprintf(fid, \t CT/sigma = %6.3f \n',CT_sig); 
fprintf(fid,^t CQ/sigma - 996.4f W',CQ sig); 
fprintf(fid, \t CH/sigma = %6.4f \n',CH_ sig); 
fprintí(fid, Tip mach of the adv. blade = %6.3f \n',Machtip); 
fprintf(fid,'\t Advance ratio = %6.3f \n',mu); 


fprintf(fid,t Rotor thrust required (TPP) = %6.0f Ibs\n',T);; 
fprintf(fid, ^t Rotor power required = %6.0f h.p.\n',Protor); 
fprintf(fid, ^t Rotor torque = %6.0f ft-lbs\f,Qrotor); 
fclose(fid); 

9o *** Configuring variables for output *** 


theta=theta* 57.3; 
“betat=[betat twist*(0.7-(Reff+(R-Reff)/2)/R)]*57.3; 
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alpha-alpham*57.3;,alpha-[alpha zeros(size(psi))]; 
Mpsi=Mpsi(:,length(Mpsi(1,:))-1); 

dM=[dM ddM]; 

psi=psi*57.3; 

r-[r (R-(R-Reff)/2)]; 


vi=[vi 0]; 


set(H STATUS,'String,' STAND BY FOR OUTPUT...) 
pause(3) 


structurel 

structure2 
set(H_STATUS,' String”) 
performance_output 
close(H IT METH) 
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APPENDIX AP. TRIM.M 


This script M-file is a subroutine to trim the rotor system. It is called in Perf.m. 


% Trim.m 


% Trim routine for collective/cyclic. 
% JANRAD 98 VERSION 5.0 


global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 


if get(H  AS,'Value)--1 
IT PARAM-'AIRSPEED'; 
IT UNIT-'KTS' 
elseif get(H_AL,'Value’)==1 
IT PARAM-'ALTITUDE"; 
IT UNIT-'FT' 
elseif get(H GW,'Value)--1 
IT PARAM-'GROSS WEIGHT', 
IT UNIT-LBS', 
elseif get(H_BT,'Value')=1 
IT PARAM='BLADE TWIST'; 
IT UNIT-'DEG', 
elseif get(H_BTR 'Value”)==1 
IT PARAM-'BLADE TAPER RATIO" 
IT UNIT-"; 
elseif get(H_SOT,'Value')==1 
IT PARAM-'START OF TAPER" 
ІТ ОМІТ-ЕТ; 
elseif get(H WSA,'Value")-- 
IT PARAM="WING SPAN AREA”; 
IT_UNIT="FT"2"; 
elseif get(H RBR,'Value)--1 
IT_PARAM='ROTOR BLADE RADIUS’; 
IT UNIT-TT' 
elseif get(H_RBS,'Value’)== 
ІТ PARAM='ROTOR BLADE SPEED"; 
IT_ UNIT='RAD/SEC”; 
end 
set(H_STATUS, 'String''EXECUTING ROTOR TRIM ROUTINE”) 
set(H STATUSI,'String,['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
if get(H_NI'Value”)=1 
set(H_STATUS3,'String',") 
else 
set(H. STATUS3,'String,['ITERATION PARAMETER: 'IT PARAM ' =' num2str(itervar) 
num2sti(IT UNIT)]) 
end 
pause(3) 
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% *** calculation of required parameters *** 
rho=.002377*(-.000031*PA+(-.002*temp+1.118)) 
% *** first guess at rotor profile drag ( H force) *** 
if Vinf « 16.9, 
Drotor-0; 
else 
Drotor- Vinf*(rho/.0023 77); 
end 
q70.5*rho*Vinf^2; 
Adisk-pi*R^2; 
Vtip-omega*R; 
temp rank-temp-*459.67; 
spd snd-49.1*sqrt(temp rank); 
Dfuse=q*Afh; 
CDwing=CDowing+(CLwing"2/(ewing*pi*(bwing”2/Swing))); 
CDhoriz-CDohoriz*(CLhoriz^2/(.8*pi*(bhoriz^2/Shoriz))); 
CDvert-CDovert--(CLvert^2/(.8*pi*(bvert^2/Svert))); 
Dwing=q*CDwing*Swing; 
Dhoriz-q*CDhoriz*Shoriz; 
Dvert=q*CDvert*Svert; 
AUXEFF=.7; 
if NEW AUX VAL== 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 
if Vinf<16.9 
Taux=0; 
else 
Taux=Dftotal; 
end 
S PERF INPUT.Taux-Taux; 
S USER INPUT.Taux-Taux; 
else 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux 
end 
Lwing=q*CLwing*Swing 


Lhoriz=q*CLhoriz*Shoriz; 
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Lvert=q* CLvert*Svert; 


Lftotal=Lwing+Lhoriz+Lvert; 


ifFIX TPP VAL-- 
alphaT=NEW TPP; %set tip path angle 
else 
alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
end 


mu=Vinf*cos(alphaT)/Vtip; 


if Vinf < 16.9, 
T=1.05*GW 


else 


T=(GW-Lftotal)/cos(alphaT) 
end 


CT=T/(Adisk*rho* Vup’2); 
% Values to check output 
% *** setup blade radius elements, azimuth elements, 


% induced velocity distributions, and determination 
% | ofconing angle and tip loss parameter *** 
B-1-(sqrt(2*CT)/b); 

Reff-B*R; 

Краг-Кей-е; 


if RADSPC VAL-- 
NEW rl=[NEW r, RefffR]; 
=length(NEW rl); 
dr-difffNEW r1)*R; 
r-(NEW rl(l:n-1)*R)*dr/2; 
else 
dr-(Reff-grip)/nbe; 
r-grip:dr:Reff-dr;, r-rtdr/2; 
end 
if NL TWIST VAL-- 
NL TWIST-NL TWIST/57.3; 
-length(NL TWIST); 
if RADSPC VAL-- 
y-((Reff/R)-NEW r(n))*((«NL TWIST(n)-NL TWIST(n-1)(NEW r(n)- NEW r(n-1))); 
else 
y-((Reff/R)-r(n)*((NL TWIST(n)-NL TWIST(n-1))(r(n)- r(n-1))); 
end 
NL TWISTI-[NL TWIST (NL TWIST(n)-*y)]; 
m-length(NL TWIST); 
dTW=diff(NL_TWIST1); 
twist=(NL_TWIST1(1:m-1))+dTW/2; 
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betat=twist; 
else 
betat=twist*(0.7-(r/R)); 


end 
rT 1=0.7;,% *** first guess at IT *** 


RbarT=rT1*Rbar; 
mblade-wblade/32.17; 
betao-asin((T/b*RbarT-(.5*(R-e)*e)*wblade)/((.5*(R-e)*e)^2*omega^2*mblade)); 
psi=0:360/naz:360-360/naz;,psi=psi'/57.3; 
%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%% rchord=root chord 
%% cblade=vector of blade element chord lengths 
%% tr=taper ratio (tip/root) 
%% trst=taper ratio start position (r/R) 
cblade-rchord*ones(size(r)); 96 gives all elements same chord length initially 
iftr—0 % prevents division by zero later in code 
tr-1; 96 in case 0 is enter for taper ratio instead 
end % of 1 for no taper 
if trst==0 


slope=(rchord-rchord*tr)/(Reff-grip); % Modifies each element 


cblade=cblade-slope*(r-grip); % chord length wrt input 
tchord=cblade(nbe); % taper ratio which has been 
mchord=sum(cblade)/nbe; % been converted into a slope 


% top portion takes into 
else % account the possibility that 
slope=(rchord-rchord*tr)/(R*(1-trst));% a0 start position is really at 


z-fix(nbe*trst); 9o the start of the aero portion 
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if z<=1 % prevents beginning index fm being zero 


cblade(z:nbe)-cblade(z:nbe)-(r(z:nbe)-r(z))*slope; 
tchord=cblade(nbe); 
mchord-sum(cblade)/nbe; 
end 
% *** induced velocity determination *** 
if Vinf « 16.9, 
A-4*pi; 
Bv-(b/2)*omega*a. *cblade; 
Tv=0; 
delT=T-Tv; 
while abs(delT) > .01*T% Prouty Eqns for Hover 
thetav=betat+thetao; 
C-(-b/2).*cblade*omega^2.*r*a. *thetav; 
vi-(-Bv-sqrt(Bv.^2-(4*A*C))y (2* A); 


dTv-(b/2)*rho*((omega*r).^2)*a.*(thetav-(vi./(omega*r))). *cblade. *dr; 
Tv=sum(dTv); 


delT=T-Tv; 
if delT < 0, 
thetao=thetao-0.5*thetao*abs(delT/T); 
else 
thetao=thetao+0.5*thetao*abs(delT/T); 
end 


end 
else % Wheatley Eqn for Fwd flt 


lamdaT=0; 
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lamda=1; 
while abs(lamdaT-lamda)>1e-4 
lamda=lamdaT; 
lamdaT=mu* sin(alphaT)+0.5*CT/sqrtdamdaT’*2+mu%2); 


end 


vi-lamdaT* Vtip-Vinf*sin(alphaT), 
vi-vi*ones(size(r)); 
end 


Vo *** first guess at theta *** 


theta 1c=0.035*((0.0006e-3 * Vinf*2+0.244e-3* Vinf)/0. 105); 
thetal s=-0.087*((0.0006e-3 * Vinf*2+0.244e-3 * Vinf)/0. 105); 
theta=thetao+theta lc. *cos(psi)+thetals. *sin(psi); 


Vo *** rotor trimming routine *** 


set((H_STATUS,'String’, TRIMMING COLLECTIVE 

set((H_STATUS1,'Stnng’,[TRUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS')]) 

pause(3) 

set(H_STATUS2,'Strng’,") 

k=1; 

error0=(T*.02)+1; 

while abs(error0) > T*.02 

set(H_STATUS2,'String', [COLLECTIVE TRIM ROUTINE IS ON ITERATION +* num2str(k)]) 
set(H_STATUS1 'String', [RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
Tpsi=zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 
ifk>1, % Eccles change: These three lines were added. 


error]; 


end 
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error0=T-(mean(Tpsi)*b), 
if errorO « -T*.02, 
thetao=thetao-0.35*thetao*abs(1.5*error0/T)*(1-mu); 
elseif error0 > T*.02, 
thetao=thetao+0.35*thetao*abs(1.5*error0/T)*(1-mu); 
end 
theta=thetao+thetalc. *cos(psi)+thetals. *sin(psi); 
ifk> 1, 
if abs(error0) > abs(error1), 
clc 
trim warning 
ве (Н GO,'Enable','off)); 
ве (Н КЕ5, Епа е об), 
set(H_RUPT 'Enable','off); 
ве (Н ВК,ЕпаШе ,оп), 
error(^*** Did Not Trim ***') 
end 


end 


error l =error0; 
k=k+1; 


end 
set((H_STATUS,'Stnng’, "TRIMMING CYCLIC’ 
set(H STATUSI,'String,['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS'] 
set(H_STATUS2, String',") 
pause(3) 
tO=clock; 
k=1; 
error0=(((T/b)*rT1*(R-grip))*.04)+1; 

while error0 > ((T/b)*rT1*(R-grip))*.04 

set(H_STATUS2,'String',[CYCLIC TRIM ROUTINE IS ON ITERATION # ',num2str(k)]) 


set(H_STATUS1,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS'’]) 
time=etime(clock,t0); 


if time > 15, 
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set(H STATUS,'String,' STILL TRIMMING ...) 
бе(Н STATUSI,'String,['RUN ELAPSED TIME IS ' num2str(fix(toc))' SECONDS']) 
set(H_STATUS2,'String', [CY CLIC TRIM ROUTINE IS ON ITERATION + * num2str(k))) 
pause(2) 
t0=clock; 
end 
Mpsi(:,k)=zeros(size(psi)); 
tmcalc 
theta- [theta theta(:,k)]; 


Mpsi- (Mpsi Mpsi(:,k)]; 
96 *** calculation of initial dthetadM *** 


fk <2, 
theta(:,k+1)=theta(:,k)+0.25/57.3; 
Mpsi(:,k+1)=zeros(size(psi)); 
k=k+1; 
tmcalc 
k-k-1; 
dthetadM={(theta(:,k+1)-theta(:,k))./(Mpsi(:,k+1)-Mpsi(:,k)); 
end 
% *** calculation of M first harmonic parameters *** 
Mlc=2*sum(Mpsi(:,k).*cos(psi))/naz; 
Mls=2*sum(Mpsi(: ,k).*sin(psi))/naz; 
% *** removal of first harmonic terms from Mpsı *** 
Mpsi(:,k+1)=Mpsi(:,k)-Mlc.*cos(psi)-Mls.*sin(psi); 
delM=Mpsi(:,k+1)-Mpsi(:,k); 


error0=max(delM)-min(delM); 
if k > 1, 


if errorO > error], 
clc 
trim warning 
set(H GO,'Enable','off"); 
set(H  RES,'Enable','off)); 
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set(H RUPT,'Enable','off'); 
set(H BK,'Enable','on'); 
error('*** END OF PROGRAM ***') 
end 
end 
errorl-errorO; 

9o *** calculation of new theta *** 
delM=0.5*(1-mu)*delM; 
theta(:,k+1)=theta(:,k)+(dthetadM. *delM); 
if error0 <= ((T/b)*rT1*(R-grip))*.04, 

theta] c=2* sum(theta(:,k).*cos(psi1))/naz; 

thetal s=2*sum(theta(:,k).*sin(psi))/naz; 
else 

thetalc=2*sum(theta(:,k+1).*cos(psi))/naz; 

thetals=2*sum(theta(:,k+1).*sin(psi))/naz; 
end 


theta(:,k+1)=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
% *** calculation of new dthetadM *** 


theta=[theta theta(:,k+1)]; 
Mpsi=[Mpsi Mpsi(:,k+1)]; 
theta(:,k+2)=theta(:,k)+0.25/57.3; 
Mpsi(:,k+2)=zeros(size(Mpsi(:,k+1))); 
k=k+2; 

tmcalc 

k-k-2; 


dthetadM=(theta(:,k+2)-theta(:,k))./(Mpsi(:,k+2)-Mpsi(:,k)); 
k=k+1; 


end 


set(H. STATUS, String,'ADJUSTING COLLECTIVE) 
set(H. STATUSI,'String'|'RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
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set(H_STATUS2,'String',”) 
pause(3) 
theta=theta(:,k); 
k=1; 
errord=(T*.01)+1; 
while abs(error0) > T*.01 
Tpsi=zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 
error0- T-(mean(Tpsi)*b); 
if errorO « -T*.01, 
thetao=thetao-0.25*thetao*abs(1.25*error0/T)*(1-mu); 
elseif error0 > T*.01, 
thetao=thetao+0.25*thetao*abs(1.25*error0/T)*(1-mu); 
end 
theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
ШК > 1, 
if abs(errorO) > abs(errorl), 
clc 
trim warning 
set(H_GO,'Enable' 'off); 
set(H RES,'Enable','off); 
set(H_RUPT,'Enable'’, off); 
set(H_BK,'Enable','on'); 
error('*** END OF PROGRAM ***") 
end 
end 
error1=errorú; 
k=k+1; 
end 
% *** calculating drag moments *** 
ве (Н STATUSO2,'String,'CALCULATING DRAG MOMENT?) 


set(H STATUSI,'String'['RUN ELAPSED TIME 1S ' num2str(fix(toc)) ' SECONDS") 
pause(2) 
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DMpsi=zeros(size(psi)); 


dmcalc 
% *** calculating rotor H force *** 


set(H_STATUS2,'String' CALCULATING ROTOR DRAG') 
set(H_STATUSL1,'String' 'RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
pause(2) 
if Vinf < 16.9, 
Hrotor=0; 


dT-[dT ddT]; 
dN-[dN ddN]; 


dD=[dD ddD]; 
else 
ат=[ат аат]; 
dN=[dN ddN]); 
dD=[dD ddD]; 
for 1=1:length(r)+1, 
H1c(i)=2*sum(dT(:,1).*cos(psi))/naz; 
H1s(i)=2*sum(dD(.:,1).*sin(psi))/naz; 
end 
Hrotor=(((b*cos(alphaT)/2)*(sum(H1s)-sin(betao) *sum(H1c)))+Drotor)/2; 
end 
% *** calculating new rT *** 
rT2=(((mean(Mpsi(:,length(Mpsi(1,:))-1))/mean(Tpsi))/R)+rT 1)/2; 
% *** check rotor drag and rT, retrim rotor if required *** 
while abs(Drotor-Hrotor) > 0.2*Hrotor | abs(rT1-rT2) > 0.015*rT1 
if abs(Drotor-Hrotor) > 0.2*Hrotor, 
set(H_STATUS, String" 'ADJUSTING ROTOR DRAG”) 
set(H_STATUS1,'String',['RUN ELAPSED TIME 15 ' num2str(fix(toc)) ' SECONDS']) 
aa. [CURRENT ROTOR DRAG = ' num2str(Drotor) ' LB']) 


end 


Drotor-Hrotor; 
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if abs(rTl-rT2) > 0.015*rT1, 
set((H_STATUS,'String’,/ ADJUSTING MEAN THRUST LOCATION’) 
set((H_STATUSI,'String’, ["RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
set(H STATUS2,'String,['NEW MEAN THRUST LOCATION IS ' num2str(rT2) ' r/R']) 
pause(2) 
end 
ве (Н STATUS,'String','RETRIMMING ROTOR?) 
ве (Н STATUSI,'String,['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS’]) 
pause(3) 
set(H_STATUS2,'String',”) 
dT=dT(:,1:nbe),; 
dN=dN(:, l:nbe); 
dD=dD(:,1:nbe); 
% *** recalculating parameters *** 
if FIX TPP VAL==I 
alphaT=NEW TPP, set tip path angle 
else 
alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
end 
mu- Vinf*cos(alphaTy/ Vtip; 
if Vinf >= 16.9, % Wheatley Eqn for Fwd flt 
T-(GW-Lftotal)/cos(alphaT); 
CT-T/(Adisk*rho* Vtip^2); 
lamdaT=0; 
lamda=1; 
while abs(lamdaT-lamda)>1e-4 
lamda=lamdaT; 
lamdaT-mu*sin(alphaT)40.5*CT/sqrt(lamdaT^2--mu^2); 
end 


vi-lamdaT* Vtip- Vinf*sin(alphaT), 


vi=vi*ones(size(r)); 
end 


B=1-(sqrt(2*CT)/b); 
Reff-B*R; 


Rbar- Reff-e; 
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ifRADSPC VAL-- 
NEW rl1-[NEW r, Reff/R]; 
n-length(NEW r1); 
dr-diffNEW r1)*R; 
=(NEW_r1(:n-1)*R)+dr/2; 
else 
dr-(Reff-grip)/nbe; 
1=gnp:dr:Reff-dr; r=r+dr/2; 
end 
RbarT=rT2*Rbar, 
betao-asin((T/b*RbarT-(.5*(R-e)*e)*wblade)/((. S *(R-e)*e)^2*omega^2*mblade)); 
9o *** trimming collective *** 
t0=clock; 
k=]; 
error0=(T*.02)+1; 


while abs(errorO) > T*.02 
set((H_STATUS2,'String', ("ROTOR TRIM ROUTINE IS ON ITERATION # ',num2str(k)}) 


set(H. STATUSI,'String,['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
Tpsi-zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 
errorO- T-(mean(Tpsi)*b); 
if errorO « -T*.02, 
thetao-thetao-0.35*thetao*abs(1.5*errorO/T)*(1-mu); 
elseif error0 > T*.02, 
thetao=thetao+0.35*thetao*abs(1.5*errorO/T)*(1-mu); 
end 
theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
ifk>1, 
if abs(errorO) > abs(error]), 
clc 
trim warning 
set(H  GO,'Enable','off'); 


set(H_RES, Enable’, off); 
set(H_RUPT, Enable’, off 


259 


ве (Н BK,'Enable','on; 
error('*** END OF PROGRAM ***') 
end 


end 


error l =error0; 
k=k+1; 


end 


% 


*** trimming cyclic *** 


k=1; 


errorO-(((T/b)*rT2* (R-grip))*.04)*1; 


while errorO > ((T/b)*rT2*(R-grip))*.04 


% 


set(H_STATUS2,'String',['CYCLIC TRIM ROUTINE IS ON ITERATION + '‚num2str(k)}) 
set(H. STATUSI,'String;,['RUN ELAPSED TIME IS ' num2st(fix(toc)) ' SECONDS']) 
time=etime(clock,t0); 
if time > 15, 
set(H STATUS,'String,' STILL TRIMMING ...) 
set(H STATUSI,' String, ['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS) 
set(H_STATUS2,'String','CYCLIC TRIM ROUTINE IS ON ITERATION + * num2str(k)]) 


pause(3) 
t0=clock; 


end 
Mpsi(:,k)=zeros(size(psi)); 
tmcalc 

theta- [theta theta(:,k)]; 


Mpsi=[Mpsı Mpsi(:,k)]; 
*** calculation of initial dthetadM *** 


ifk «2, 
theta(:,k+1)=theta(:,k)+0.25/57.3; 
Mpsi(:,k+1)=zeros(size(psi)); 
k=k+1; 

tmcalc 


k-k-1; 
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dthetadM=(theta(:,K+1)-theta(:,k))./(Mpsi(:,k+1)-Mpsi(:,K)); 

end 

% *** calculation of M first harmonic parameters *** 
M1c=2*sum(Mpsi(:,k).*cos(psi))/naz, 
M1s=2*sum(Mpsi(:,k).*sin(psi))/naz; 

Фо *** removal of first harmonic terms from Mpsi *** 
Mpsi(:,k+1)=Mpsi(:,k)-M1c.*cos(psi)-M1s.*sin(psi); 
delM=Mpsi(:,k+1)-Mpsi(:,k); 


error0=max(delM)-min(delM); 
if k > 1, 
if errorO > error1, 
clc 
trim warning 
set(H_GO,'Enable' 'off'); 
set(H_RES,'Enable' 'off); 
set(H RUPT,'Enable','off); 
set(H_BK,'Enable','on’); 
error('*** END OF PROGRAM ***>) 
end 


end 
error ]-errorO; 


% *** calculation of new theta *** 
delM=0.5*(1-mu)*delM; 
theta(:,k+1)=theta(:,k)+(dthetadM. *delM); 
if errorO <= ((T/b)*rT2*(R-grip))*.04, 

thetalc-2*sum(theta(:,k).*cos(psi))/naz; 
thetals=2*sum(theta(:,k). *sin(psi))/naz; 
else 
thetalc=2*sum(theta(:,k+1).*cos(psi))/naz; 
thetals=2*sum(theta(:,k+1).*sin(psi))/naz; 


end 
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theta(:,k+1)=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 

% *** calculation of new dthetadM *** 
theta=[theta theta(:,k+1)]; 
Mpsi=[Mpsi Mpsi(:,k+1)]; 
theta(:,k+2)=theta(:,k)+0.25/57.3; 
Mpsi(:,k+2)=zeros(size(Mpsi(:,k+1))); 
k=k+2; 
tmcalc 
k-k-2; 
dthetadM=(theta(:,k+2)-theta(:,k))./((Mpsi(:,k+2)-Mpsi(:,k)); 


k=k+]; 
end 


% *** retrimming collective *** 
theta=theta(:,k); 
k=1; 
error0=(T*.01)+1; 
while abs(error0) > T*.01 
set(H_STATUS?2'String', (COLLECTIVE TRIM ROUTINE IS ON ITERATION + * num2str(k)]) 
set(H_STATUS1 'String' [RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS']) 
Tpsi-zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 
errorO- T-(mean(Tpsi)*b); 
if errorO « -T*.01, 
thetao-thetao-0.25*thetao*abs(1.25*errorO/T)*(1-mu); 
elseif епогО > T*.01, 
thetao=thetao+0.25*thetao*abs(1.25*error0/T)*(l-mu); 


end 


theta=thetao+theta1c.*cos(psi)+thetals.*sin(psi); 
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ifk > 1, 
if abs(error0) > abs(error]), 
clc 
trim warning 
ве (Н GO,'Enable','off'); 
set(H RES,'Enable','off); 
set(H_RUPT 'Enable''off); 
set(H BK,'Enable','on); 
error( *** END OF PROGRAM ***') 
end 
end 
error 1=error0; 
k=k+1; 
end 
% *** recalculating rotor H force *** 
if Vinf < 16.9, 
Hrotor=0; 


dT- [dT ddT]; 
dN-[dN ddN]; 


ар=[ар аар]; 
else 


dT-[dT ddT]; 
dN=[dN ddN]; 


dD-[dD ddD]; 
for ı=1:length(r)+1, 
Hlc(i)=2*sum(dT(:,i).*cos(psi))/naz; 
H1s(i)=2*sum(dD(:,i).*sin(psi))/naz; 
end 
Hrotor=(((b*cos(alphaT)/2)*(sum(H 1s)-sin(betao)*sum(H1c)))+Drotor)/2; 
end 


% *** recalculating rT *** 
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r11=rT2; 
rT2=(((mean(Mpsi(:,length(Mpsi(1,:))-1))/mean(Tpsi))/R)+1T 1)/2; 

end 

% *** recalculating drag moments *** 

dT=dT(:, 1:nbe); 

dN=dN(:,1:nbe); 

dD=dD(:,1:nbe); 

DMpsi=zeros(size(psi)); 

dmcalc 


dT-[dT ddT]; 
dN=[dN ddN}; 


dD=[dD ddD]; 

set(H_STATUS, 'String’,, ROTOR TRIMMED') 

set((H_STATUS],'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' SECONDS')) 
set(H_STATUS2,'String''IS THIS BETTER THAN JANRAD 3 OR WHAT?) 
pause(3) 

set(H_STATUS2,'String',") 

save perftemp mchord DMpsi % Eccles addition - perf.m was 


% not recognizing mchord and DMpsi. 
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APPENDIX AQ. THRCALC.M 


This script M-file is a subroutine of Trim.m to calculate the rotor thrust. 


% THRCALC.M 


% thrcalc calculates the total thrust along a blade at 
% each azimuth (psi) location 
% JANRAD 98 VERSION 5.0 


global MESH. VAL MESH_STA AF_MAIN AF TIPr_mesh 


Up=zeros(size(psi*r)); 
Ut=zeros(size(Up)); 
dT=zeros(size(Up)); 
dN=zeros(size(Up)); 
ddT=zeros(size(psi)); 
ddN=zeros(size(psi)); 


for i=1:length(psi), 

Up(i,:)=vi.*cos(betao)+ Vinf* sin(alphaT )*cos(betao)+ Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 
Utd, :)=r.*omegat Vinf*cos(alphaT)*sin(psi(1)); 

phi=atan2(Up(i,:),Ut(1,:)); 

alpha=theta(i)+betat-phi; 


% Eccles added the following line for use wıth Mach dependent afoil files. 
Mach = (Vtip.*cos(alphaT).*r./R+Vinf.*sin(psi(i)))/(49.05*sqrt(temp+460)); 
switch MESH_VAL 


case 0 
if afoil==1, 
[CL,CD]-0oo12clcd(alpha, Mach); 
elseif afoil==2, 
[ICL,CD]=hh02clcd(alpha); 
elseif afoil==3, 
[CL,CD]-vr12clcd(alpha, Mach), 
elseif afoil==4, 
[CL,CD]-vr15clcd(alpha, Mach); 
elseif afoil==5, 
[CL,CD]=sc109418clcd(alpha,Mach); 
elseif afoil==6, 
[CL,CD]=sc1095r8clcd(alpha,Mach), 
end 


case 1 
г mesh-find((r/R)«eval(MESH STA)), 


if AF MAIN==2, 
[CL_m,CD_m]=0012clcd(alpha(1:max(r_mesh)), Mach(1:max(r_mesh))), 
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elseif AF MAIN==3, 

[CL_m,CD_mJ=hh02clcd(alpha(1:max(r_mesh))); 

elseif AF MAIN==4, 

[CL m,CD m]-vr12clcd(alpha(1:max(r mesh)), Mach(1:max(r mesh))); 
elseif AF MAIN--5, 

[CL_m,CD_mj=vrl Sclcd(alpha(1:max(r_mesh)), Mach(1:max(r_mesh))); 
elseif AF _ ==6, 


end 


if AF TIP--2, 
[CL Ср t]-ool2cled(alpha(max(r mesh)*1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF TIP--3, 
[CL t,CD_t]=hh02clcd(alpha(max(r_mesh)+1:nbe)); 
elseif AF TIP==4, 
[CL_t,CD_t]=vrl2clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF TIP==5, 
(CL t,CD t]=vrlScled(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1 :nbe)); 
elseif AF TIP--6, 
[CL & CD t]-scl094r8clcd(alpha(max(r mesh)*1:nbe), Mach(max(r mesh)-*]:nbe)); 
elseif AF_TIP==7, 
[CL t,CD_t]=scl095r8clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
end 
CL=[CL_m CL t]; 
CD-[CD mCD t]; 
end 
dT(1,:)-0.5*rho.*cblade.*dr. *(Up(i,:).^2**Ut(1,:).^2). *( CL.*cos(phi)-CD.*sin(phi)); 
Tpsi(i)=sum(dT(i,:)); 
dN(i,:)=0.5*rho.*cblade.*dr.*(Up(i,:).*2+Ut(i,:).%2).*(CL. *cos(alpha)+CD.*sin(alpha)); 
Npsi(i)=sum(dT(1,:)); 


% *** calculations for tıp loss area *** 

Uptip=Vinf*sin(alphaT)*cos(betao)+ Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 
Uttip=(R-(R-Reff)/2)*omega+ Vinf*cos(alphaT)*sin(psi(i)); 
phitip-atan2(Uptip,Uttip); 

alphatip=theta(i)+betat(nbe)-phitip; 


ddT(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-Reff) *(Uptip*2+Uttip’2)*(-.009*sin(phitip)); 
Tpsi(i)- Tpsi(1)*ddT(1); 
ddN(1)-0.5*rho*cblade(nbe)*(0.54-0.5*cos(2*psi(1))) (R-Reff)* (Uptip^2*- Uttip^2)*(-.009*sin(alphatip)); 
Npsi(1)-Npsi(i)*ddN(1); 

end 


266 


APPENDIX AR. TMCALC.M 
This script M-file is a subroutine of Trim.m to calculate the rotor thrust moment. 


9o TMCALC.M 


9/o tmcalc calculates the total thrust moment along a blade 
% at each azimuth (psi) location 
% JANRAD 98 VERSION 5.0 


global MESH. VAL MESH STA AF MAIN AF. TIP r mesh 


Up=zeros(size(psi*r)); 
. Utezeros(size(Up)); 
dM=zeros(size(Up)); 
ddM=zeros(size(psi)); 


for i=1:length(psi), 

Up(i, :}=vi.*cos(betao)+ Vinf* sin(alphaT) *cos(betao)+ Vinf*cos(alphaT )*sin(betao)*cos(psi(i)); 
Utd, :)=r.*omegat Vinf*cos(alphaT)*sin(psi(1)); 

phi=atan2(Up(i,:),UtG,:)); 

alpha=theta(i,k)+betat-phi; 


% Eccles added the following line for use with Mach dependent afoil files. 
Mach = (Vtip.*cos(alphaT).*r./R+Vinf.*sin(psi(i)))/(49.05*sqrt(temp+460)); 


switch MESH_VAL 
case 0 

if afoil==1, 
[CL, CD]=0012clcd(alpha, Mach); 

elseif afoil==2, 
[CL,CD]=hh02clcd(alpha); 

elseif afoil==3, 
[CL,CD]=vr12clcd(alpha,Mach); 

elseif afoil==4, 
[CL,CD]=vr15clcd(alpha,Mach); 

elseif afoil==5, 
[CL,CD]=sc1094r8clcd(alpha,Mach); 

elseif afoil==6, 
[CL,CD]=sc1095r8clcd(alpha,Mach); 

end 


case ] 
r_mesh=find((r./R)<eval(MESH_STA)); 


if AF MAIN--2, 


[CL m,CD m]-oo 12clcd(alpha(1:max(r_mesh)), Mach(1:max(r_mesh))); 
elseif AF MAIN==3, 
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[CL m,CD m]-hhO2clcd(alpha(1:max(r mesh))); 
elseif AF MAIN--4, 

[CL m,CD m]-vr12clcd(alpha(1:max(r mesh)), Mach(1:max(r_mesh))); 
elseif AF MAIN==5, 

[CL m,CD m]-vriSclcd(alpha(1:max(r mesh)), Mach(l:max(r mesh))); 
elseif AF _ ==6, 

[CL_m,CD_m]=sc1094r8clcd(alpha(1:max(r_mesh)), Mach(1:max(r_mesh))); 
elseif AF MAIN--7, 

[CL m,CD m]-scl095r8cled(alpha(1:max(r mesh)), Mach(1:max(r mesh))); 
end 


if AF TIP--2, 
[CL t,CD t]-ool2clcd(alpha(max(r mesh)*1:nbe), Mach(max(r mesh)-*1:nbe)); 
elseif AF TIP--3, 
[CL_t,CD_t]=hh02clcd(alpha(max(r_mesh)+1:nbe)); 
elseif AF TIP==4, 
[CL _t,CD_t]=vr12clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF_TIP==5, 
[CL_t,CD_t]=vr15clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF TIP==6, 
[CL t,CD t]-scl094r8clcd(alpha(max(r mesh)*1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF TIP--7, 
[CL_t,CD_t]=scl095r8clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r mesh)-1:nbe)); 
end 
CL-[CL m CL t]; 
CD-[CD m CD t]; 
end 
dM(i,:)-0.5*rho.*cblade. *r.*dr.* (Up(1,:).^2*Ut(1,:).^2).* (CL.*cos(phi)-CD.*sin(phi)); 
Mpsi(i,k)-sum(dM(i,:)); 


% *** calculations for tip loss areas *** 
Uptip=Vinf*sin(alphaT)*cos(betao)+ Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 
Uttip-(R-(R-Reff)/2)*omega- Vinf*cos(alphaT)*sin(psi(1)); 
phitip-atan2(Uptip,Uttip); 


ddM(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(1)))*(R-(R-Reff)/2)*(R-Reff)* (Uptip^2-*-Uttip^2) *(- 
.009*sin(phitip)); 

Mpsi(i,k)=Mpsi(i,k)+ddM(i); 

end 
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APPENDIX AS. DMCALC.M 


This script M-file is a subroutine of Trim.m to calculate the rotor drag moment. 


% DMCALC.M 


% dmcalc calculates the total drag along a blade at 
% each azimuth (psi) location 
% JANRAD 98 VERSION 5.0 


global MESH VAL MESH STA AF MAIN AF TIPr mesh 


Up=zeros(size(psi*r)); 
Ut=zeros(size(Up)); 
alpham=zeros(size(Up)); 
=zeros(size(Up)); 
ddD=zeros(size(psi)); 
ddDM=zeros(size(ps1)); 
for 1=1:length(ps1), 
Up(1,:)-vi.*cos(betao)* Vinf*sin(alphaT)*cos(betao)* Vinf*cos(alphaT)*sin(betao)*cos(psi(1)); 
Uti, :)7r.*omega-* Vinf*cos(alphaT)*sin(psi(1)); 
phi=atan2(Up(i,:),Ut(,:)); 
alpha=theta(1)+betat-phi; 
alpham(i,:)=alpha; 
% Eccles added the following line for use with Mach dependent afoil files. 
Mach = (Vtip.*cos(alphaT)).*r./R+Vinf. *sin(ps1(1)))/(49.05*sqrt(temp+460)); 
switch MESH VAL 


case 0 
if afoıl==1, 
[CL,CD]=0012clcd(alpha, Mach); 
elseif afoil--2, 
[CL,CD]-hhO2clcd(alpha); 
elseif afoil==3, 
[CL,CD]-vr12clcd(alpha, Mach); 
elseif afoil==4, 
[CL,CD]=vr1 Sclcd(alpha, Mach); 
elseif afoıl==5, 
[CL,CD]-sc109418clcd(alpha, Mach); 
elseif afoıl==6, 
[CL,CD]=sc1095r8clcd(alpha, Mach); 
end 


case 1 
г mesh-find((r/R)«eval(MESH STA)); 
if AF MAIN==2, 
[CL m,CD m]-ool2clcd(alpha(1:max(r mesh)), Mach(1:max(r mesh))); 
elseif AF MAIN--3, 
[CL m,CD m]-hhO2clcd(alpha(1:max(r mesh))); 
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elseif AF MAIN==4, 
[CL m,CD m]-vr12clcd(alpha(1:max(r mesh)), Mach(1:max(r mesh))); 
elseif AF MAIN--5, 
[CL m,CD m]-vr15clced(alpha(1:max(r mesh)), Mach(1:max(r mesh))); 
elseif AF MAIN--6, 
[CL_m,CD_m]=sc1094r8clcd(alpha(1:max(r_mesh)), Mach(1:max(r_mesh))); 
elseif AF MAIN==7, 
[CL_m,CD_m]=sc1095r8clcd(alpha(1:max(r_mesh)), Mach(1:max(r_mesh))); 
end 
if AF_TIP==2, 
[CL_t,CD_t]=0012clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF_TIP==3, 
[CL_t,CD_t]=hh02clcd(alpha(max(r_mesh)+1:nbe)); 
elseif AF_TIP==4, 
[CL t,CD t]-vr12cled(alpha(max(r mesh)*1:nbe), Mach(max(r mesh)*1:nbe)); 
elseif AF_TIP==5, 
[CL t,CD t]-vr15cled(alpha(max(r mesh)*1:nbe), Mach(max(r mesh)-*1:nbe)); 
elseif AF MAIN--6, 
[CL_t,CD_t]=sc1094r8clcd(alpha(max(r_mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
elseif AF_TIP== 
ІСІ, 1, CD | t]-sc1095r8clcd(alpha(max(r ` mesh)+1:nbe), Mach(max(r_mesh)+1:nbe)); 
end 
CL=[CL_m CL 1); 
CD-[CD mCD t]; 
end 
dD(i,:)-0.5*rho*cblade.*dr. *(Up(i,:).^2--Ut(1,:).^2). *(CL.*sin(phi)*- CD.*cos(ph1)); 
dDM=dD(1,:).*r 
DMpsi(i)=sum(dDM); 


% *** calculations for tip loss area *** 

Uptip- Vinf*sin(alphaT)*cos(betao)-* Vinf*cos(alphaT)*sin(betao)*cos(psi(1)); 
Uttip=(R-(R-Reff)/2)*omegat Vinf*cos(alphaT)*sin(psi(1)); 
phitip=atan2(Uptip,Uttip); 


ddD(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-Reff)*(Uptip*2+Uttip’2)*(. 00c 
ddDM(i)=ddD(i)*(R-(R-Reff)/2); 

DMpsi(i)=DMpsi(i)+ddDM(i); 

end 
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APPENDIX AT. 0012CLCD.M 


This MATLAB function calculates a c; and ca for a NACA 0012 airfoil given 
angle of attack and Mach number. It is called in Thrcalc.m, Tmcalc.m and Dmcalc.m 


script M-files. 


% 0012cled calculates CL and CD for the NACA 0012 
% airfoil given angle of attack in radians and the 

% local Mach number: 

% 

% [CL,CD]=0012clcd(alpha, Mach) 

% 

% Both 'alpha' and 'Mach' are intended to be vectors 

% the elements of which correspond to the rotor blade 
% radial stations of interest in a blade element analysis. 
% All equations are based on Ray Prouty's treatment of 
% the 0012 in his text. 


% JANRAD 98 VERSION 5.0 


function [CL,CD]=0012c1cd(alpha, Mach) 
CL=zeros(size(alpha)); 
CD=zeros(size(alpha)); 

a-alpha*180/pi; 

aL = 15 - 16.*Mach; 

aD = 17 - 23.4. *Mach; 

K] = 0.0233 + 0.342.*(Mach."7.15), 

K2 = 2.05 - 0.95.*Mach; 


% CL for Mach numbers < 0.725 and AOA inside +/- 20 deg: 


chk=(Mach<0.725 & a>=0 & a<=aL): 
CL=CL+chk.*((0.1./sqrt(1-Mach.”2) - 0.01.*Mach).*a): 


chk=(Mach<0.725 & a>aL & а<-20); 
CL=CL+chk. *((0.1./sqrt(1-Mach.*2) - 0.01.*Mach).*a - K1.*(a-aL).*K2); 


chk=(Mach<0.725 & a>=-20 & a<-aL); 
CL-CL-chk. *((0.1./sqrt(1-Mach.^2) - 0.01.*Mach).*abs(a) - K1.*(abs(a)-aL).^K2), 


chk=(Mach<0.725 & a>=-aL & a<0); 
CL-CL-chk. *((0.1./sqrt(1-Mach.^2) - 0.01.*Mach).*abs(a)); 


% CL for Mach numbers > 0.725 and AOA inside +/- 20 deg: 
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chk=(Mach>=0.725 & a>=0 & a<=aL); 
CL=CL+chk.*((0.677 - 0.744.*Mach).*a); 


chk=(Mach>=0.725 & a>aL & a<=20); 
CL=CL+chk.*((0.677 - 0.744.*Mach).*a - (0.0575-0.144.*(Mach-0.725).^0.44).*(a-aL).^(K2)); 


chk=(Mach>=0.725 & a<0 & a>=-aL); 
CL=CL-chk.*((0.677 - 0.744.*Mach).*abs(a)); 


chk=(Mach>=0.725 & a<-aL & a>=-20); 
CL-CL-chk.*((0.677 - 0.744.*Mach).*abs(a) - (0.0575-0.144.*(Mach-0.725).^0.44). *(abs(a)-aL).^(K2)); 
% CL for all Mach numbers and AOA outside +/- 20deg: 


chk=(a>20 & а<=161); 
CL=CL+chk.*(1.15.*sin(2. *alpha)); 


chk=(a>161 & a<=173), 
CL=CL+chk.*(-0.7); 


chk=(a>173 & a<=180); 
CL=CL+chk. *(0.1.*(a-180)); 


chk=(a>=-180 & a<=-173); 
CL=CL+chk.*(0.1.*(a+180)); 


chk=(a>-173 & a<=-161); 
CL=CL+chk.*(0.7); 


chk=(a>-161 & a<-20); 
CL=CL+chk.*(1.15.*sin(2.*alpha)); 


% CD for Mach numbers < 0.725 and AOA inside +/- 20 deg: 


chk=(Mach<0.725 & a>=0 & a<=aD); 
CD=CD+chk.*(0.0081 + (-350.*a + 396.*a.02 - 63.3.*a.^3 + 3.66.*а.^4).*10.^(-6)); 


chk=(Mach<0.725 & a>aD & a<=20); 
CD=CD+chk.*((0.0081 + (-350.*a + 396.*a.%2 - 63.3.¥a.%3 + 3.66.*a.%4).*10.%(-6)) + 0.00066.*(a- 
aD).^2.54); 


chk=(Mach<0.725 & a<0 & a>=-aD), 
CD=CD+chk.*(0.0081 + (-350.*abs(a) + 396.*a.%2 - 63.3.*abs(a).^3 -- 3.66.*a.^4).*10.^(-6)); 


chk=(Mach<0.725 & a<-aD & a>=-20); 


CD=CD+chk. *((0.0081 + (-350.*abs(a) + 396.*a.%2 - 63.3.*abs(a).%3 + 3.66. *a.%4).*10.%(-6)) + 
0.00066. *(abs(a)-aD).^2.54); 
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% CD for Mach numbers > 0.725 and AOA inside +/- 20 deg: 
chk=(Mach>=0.725 & а>=0 & а<-20); 

CD=CD+chk.*((0.0081 + (-350.*a -- 396.*a.^2 - 63.3.*a.^3 + 3.66. *a.%4).*10.%(-6)) + 0.00035.*a.%2.54 + 
21.*(Mach-0.725).^3.2); 

chk=(Mach>=0.725 & a<0 & а>--20); 

CD=CD+chk.*((0.0081 + (-350.*abs(a) + 396.*a.%2 - 63.3.*abs(a).03 + 3.66.*a.%4).*10.%(-6)) + 
0.00035.*abs(a).^2.54 + 21.*(Масһ-0.725).^3.2); 

% CD for all Mach numbers and AOA outside +/- 20deg: 


chk=(a>20 & a<=180); 
CD=CD+chk.*(1.03 - 1.02.*cos(2. *alpha)); 


chk=(a>=-180 & a<-20); 
CD=CD+chk.*(1.03 - 1.02. *cos(2.*alpha)); 
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APPENDIX AU. HH02CLCD.M 


This MATLAB function calculates a c; and ca for an HH-02 airfoil given angle of 


attack. It is called in Thrcalc.m, Tmcalc.m and Dmcalc.m script M-files. 


function [CL,CD]-hhO2clcd(alpha) 


% hhO2eled calculates CL and CD for an HH-02 airfoil 
% given angle of attack (alpha) in radians 

% [CL,CD]-hhO2clcd(alpha) 

% JANRAD 98 VERSION 5.0 


CL>zeros(size(alpha)); 
CD=zeros(size(alpha)); 
a-alpha* 180/pi; 


chk1=(a>=20 4 a<=180); 
CL=CL+chk1.*(0.42541+0.026863 *a+5.5988e-4*a.%2-2.1493e-5 ¥a.%3+ 1.593 2e-7*a.%4-3.4659e-10*a.5); 
Ср=Ср+сћКі1.*(-0.7179+0.061213*а-5.9861е-4*а.^2+7.3708е-б*а.^3 -6.6605е-8*а.^4+1.913е-10*а.^5); 


chk1=(a>=-180 % а<--50); 
CL-CL-*chk1.*(-4.6183-0.1923*3-3.5554e-3*a.^2-3.3273e-5*a.^3-1.4528e-7*a.^4-2.3003e-10*a.^5); 
CD=CD+chk1.*(2.7093e-2-2.1309e-2*2+2.0335e-4*2.02+3.47e-7*a.03-3.0586e-8*a.4-1.2584e-10*a.15), 


chk1=(a>-50 & a<-20); 
CL=CL+chk 1.*(-2.5519-0.22847*a-9.5667e-3 *a.*2-1.705 le-4*a.%3-1.0909e-6*a."4); 
CD=CD+chk 1.*(2.7093e-2-2.1309e-2*at+2.0335e-4*a.%2+3 .47e-7*a.3-3.0586e-8*a.%4-1.2584e-10*a.%5); 


chk 1=(a>=-20 & а<=-10); 
CL=CL+tchk1.*(-0.2+0.089*a+0.0034*a.%2); 
Ср=Ср+сећкі1.%(2.7093е-2-2.1309е-2*а+2.0335е-4*а.^2+3.47е-7*а.^3-3.0586е-8*а.^4-1.2584е-10*а.^5); 


chk12(a«20 & а>-10); 
CL-CL-*chk1.*(5.8766e-271.3131e-1*a*2.4742e-3*a.^2-5.303e-4*a.^3-1.5818e-5*a.^44-1.28e-6*a.^5); 
chk2=a<-4; 
chk2=chk2.*chk1; 
CD=CD+chk2.*(1.3786+0.916*2+0.21396*a.2+2.0371e-2*a.3+7.0076e-4*a.4); 
chk2=(a>=-4 & a<=7); 
chk2=chk2.*chk1; 
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CD=CD+chk2.*(9.732e-3+3.2326e-4*a+ 1.43 92e-4*a.%2-8.5073e-5*a.%3+1.1826e-6*a.%4+1.527]le- 
б*а.^5); 

chk2=a>7; 

chk2=chk2.*chkl; 

CD=CD+chk2.*(1.842e-1-5.7532e-2*a+5.8043e-3 *а.^2-1.2803е-4*а.^3); 
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APPENDIX AV. AIRSPEED ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the airspeed iteration 
method. 


function airspeed iteration plots() 


% Plot Routine For Airspeed Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load airspeed iteration plots 


global PICK H_AS IT... 
H AS IT P1H AS IT P2H AS IT P3H AS IT P4H AS IT P5... 
H AS IT P6H AS IT P7H AS IT P8H AS IT P9H AS IT Р10 


H AS IT = figure(Units','"normalized', ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'Name','Airspeed Iteration Plots', ... 
'"NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
‘Position’, [0.170898 0.0963542 0.65625 0.824219]. ... 
Тар Тірі”); 
b 7 uicontrol(Parent,'H AS IT, ... 
'Units' 'normalized', ... 
'FontSize' 14. ... 
'FontWeight' 'bold", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.173363 0.872038 0.659226 0.101106], ... 
‘String’, Plot Selection For Airspeed Iteration’, ... 
'Style','text', ... 
‘Tag 'StaticText 1"); 
b = uicontrol('Parent' H_AS IT, ... 
'Units''normalized', ... 
'FontSize' 12. ... 
‘BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.21875 0.707741 0.568452 0.0647709], ... 
‘String’,'Check The Boxes Below For Desired Plots’, ... 
'Style','text', ... 
"Tag' StaticText2”); 
H_AS_IT_P1 = uicontrol(Parent'H_AS TT, ... 
'Units' 'normalized', ... 
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'ВасКртоипаСо]ог', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.150298 0.603476 0.705357 0.0458136], ... 
'String','Main Rotor Plots- Speed vs T/RHP/TPPangle/Liftpercent',... 
'Style','checkbox', ... 

'Tag','Checkbox1'); 

H AS IT P2 - uicontrol(Parent,H AS IT, ... 

'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'"Position', [0.151786 0.545901 0.702381 0.0473934], ... 
‘String’,'Rotor/Tail Rotor/Total Power Required’... 
'Style','checkbox', ... 

"Таг, СПесКЬох!)); 

H AS IT P3 - uicontrol(Parent,H AS IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position' [0.150298 0.489907 0.705357 0.0458136], ... 
'String' 'Rotor Speed vs Airspeed (Constant Tip Speed)... 
'Style' 'checkbox', ... 

"Таг, СБесКЬох!); 

H AS IT P4 <- uicontrol(Parent,H AS IT, ... 

"Units, normalized", ... 

‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.15 1786 0.432333 0.702381 0.0473934], ... 
‘String’,'Auxiliary Thrust vs Airspeed... 

"Style" 'checkbox', ... 

"Tag,'Checkbox1?); 

H AS IT P5 - uicontrol(Parent,H AS IT, ... 

"Units',"normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.150298 0.376338 0.705357 0.0458136), ... 
'String','Coeff of Power vs Coeff of Thrust at Max Airspeed',... 
'Style' 'checkbox', ... 

"Tag ,'Checkbox1^); 

H AS IT P6 - uicontrol(Parent,;H А5 ІТ, ... 

"Units','normalized', ... 

'BackgroundColor',[0.752941 0.75294] 0.752941], ... 
Position’, [0.151786 0.318764 0.702381 0.0473934], ... 
‘String, Coeff of Thrust vs Figure of Merit’,... 
'Style','checkbox', ... 

"Таг, СПесКЬох!); 

H AS IT P7 - uicontrol(Parent'' H AS IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.150298 0.26277 0.705357 0.0458136], ... 
'String',' Drag vs Airspeed',... 

'Style','checkbox', ... 

'Tag','Checkbox1'); 

H_AS_IT P8 = uicontrol(Parent',H_AS IT, … 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.151786 0.205196 0.702381 0.0473934], ... 
"String ,'Required Collective Pitch vs Airspeed',... 
'style','checkbox', ... 
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"Таг", СЪесКЬох!), 

H AS IT P9 - uicontrol(Parent,H AS IT, ... 

'Units' 'normalized", ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
"Position', [0.150298 0.149201 0.705357 0.0458136], ... 
'String','1st Lateral Cyclic Term (als) vs Airspeed',... 
'Style','checkbox', ... 

"Tag','Checkbox1*); 

H AS IT P10 - uicontrol(Parent,H AS IT, ... 

'Units''normalized', … 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.151786 0.0916272 0.702381 0.0473934], ... 
'String''1st Longitudinal Cyclic Term (b1s) vs Airspeed',... 
'Style','checkbox', ... 

"Тар", СБесКЬох!); 

b = uicontrol(Parent, H AS IT, ... 

'Units' 'normalized", ... 
'Callback','create plots fcn рісі, ... 

'FontSize', 12, ... 

‘FontWeight, bold’, ... 

"BackgroundColor' [0.752941 0.752941 0.752941], ... 
Position',[0.589286 0.01 0.235119 0.0677165], ... 

'String',' Create Plots', ... 

"Tag','Pushbutton1*); 

b = uicontrol(Parent; H AS IT, ... 

'Units''normalized", ... 

'Callback','out_count=1;create_plots_fen back‘, ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
‘Position’, [0.178571 0.01 0.235119 0.0677165], ... 

'String’,'<< Back’, ... 

‘Tag’, Pushbutton 1’); 


assignin('base','H AS IT P1,H AS IT Pl) 
assignin('base,'H AS IT P2,H AS IT P2) 
assignin('base','H AS IT P3,H AS IT P3) 
assignin('base','H AS IT PA,H AS IT P4) 
assignin('base, H AS ІТ Р5'Н AS IT P5) 
assignin('base','H AS IT P6,H AS IT Рб) 
assignin('base','H AS IT P7,H AS IT P7) 
assignin('base','H AS IT P8',H AS IT P8) 
assignin('base','H AS IT P9'H AS IT P9) 
assignin('base','H AS IT P10,H А5 ІТ Р10) 
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APPENDIX AW. ALTITUDE ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the altitude iteration 
method. 


function altitude iteration plots() 


% Plot Routine For Altitude Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load altitude iteration plots 
global H AL ITH AL IT PIH AL IT P2H AL IT P3H AL IT P4H AL IT P5 


H AL IT - figure(Units','normalized,, ... 
'Color',[0.8 0.8 0.8], ... 
'"Colormap',mat0, ... 
'Name' 'Altitude Iteration Plots', … 
'NumberTitle''off', … 
"PointerShapeCData',matl, ... 
'Position',[0.169922 0.0976562 0.65625 0.824219], ... 
"Тар" Тірі); 
b 7 uicontrol(Parent,; H AL IT, ... 
'Units' 'normalized", ... 
"BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'FontWeight','bold', … 
"Position", [0.173363 0.872038 0.659226 0.101106], ... 
'String','Plot Selection For Altitude Iteration’, ... 
Style text 
'Tag','StaticText1'); 
b = uicontrol(Parent'' H AL IT, ... 
'Units' 'normalized', ... 
"BackgroundColor', [0.752941 0.752941 0.752941], ... 
'FontSize',12, ... 
'Position', [0.21875 0.707741 0.568452 0.0647709], ... 
‘String','Check The Boxes Below For Desired Plots’, ... 
¡Style text, 
'Tag' 'StaticText2”); 
H AL IT PI = uicontrol('Parent',H_AL IT, … 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.14881 0.603476 0.705357 0.0458136], ... 
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'String', Total Power Required vs Altitude‘, ... 
'Style' 'checkbox', ... 
"Таг", СПесКЬох!)); 

H AL IT P2 - uicontrol(Parent''H AL IT, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Розшоп', [0.14881 0.545901 0.702381 0.0473934], ... 
'String" 'Rotor Drag vs Altitude", ... 
'Style' 'checkbox', ... 
"Tag','Checkbox1^); 
H AL IT P3 - uicontrol(Parent, H AL IT, ... 
"Units ,"normalized', ... 
"BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position', [0.14881 0.489731 0.705357 0.0458136], ... 
'String','Required Collective Pitch vs Altitude”, ... 
'Style','checkbox', ... 
... 'Tag,'Checkbox1*); 
H AL IT P4 - uicontrol(Parent,H AL IT, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.75294] 0.752941 0.752941], ... 
"Position', [0.14881 0.42654 0.705357 0.0458136], ... 
'String','1st Lateral Cyclic Term vs Altitude, ... 
‘Style’, ‘checkbox’, ... 
‘Tag’, ‘Checkbox 1'); 
H AL IT P5 - ucontrol(Parent,H AL IT, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
‘Position’, [0.14881 0.363349 0.705357 0.0458136], ... 
'String','1st Longitudinal Cyclic Term vs Altitude’, ... 
'Style' 'checkbox', ... 
"Tag ,'Checkbox1*); 

H AL IT P6 - ucontrol(Parent'; H AL IT, ... 
'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.14881 0.300158 0.705357 0.0458136], ... 

'string','Blank' ... 

'Style' 'checkbox', ... 

‘Tag’, ‘Checkbox 1'); 

Н АГ IT P7 = uicontrol(‘Parent',H_AL IT, … 

'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.14881 0.232227 0.705357 0.0458136], ... 
'String','Blank‘, ... 
‘Style’, ‘checkbox’, ... 
"Таг, СПесКЬох!)); 
b — uicontrol(Parent' H AL IT, ... 
'Units' 'normalized", ... 
'Callback','create plots fcn plots', ... 
FontSize',12, ... 
FontWeight','bold', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position',[0.589286 0.01 0.235119 0.0677165], ... 
'String','Create Plots', ... 
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'Tag','Pushbutton!'); 
b = uicontrol(Parent'' H AL IT, ... 

'Units','normalized', ... 
'Callback' 'out_count=1;create_plots fcn back‘, ... 
'FontSize', 12, ... 
'FontWeight','bold', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'"Position' [0.178571 0.01 0.235119 0.0677165], ... 
'String','«« Back, ... 
"Tag','Pushbutton1*); 
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APPENDIX AX. GROSSWEIGHT ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the altitude iteration 
method. | 


function grosswt iteration plots() 


% Plot Routine For Gross Weight Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load grosswt_iteration_plots 


global H GW IT H. GW IT P1 H. GW IT P2H GW IT P3H GW IT P4H GW IT P5... 
H GW IT P6H GW IT P7 H GW IT P8H GW IT P9 


H GW IT - figure('Units',"normalized', ... 
'Color',[0.8 0.8 0.8], ... 
‘Colormap',mato, ... 
'Name','Gross Weight Iteration Plots’, ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
'Position',[0.170898 0.0963542 0.65625 0.824219], ... 
"Iag,Fig15; 

b = uicontrol(Parent;H GW IT, ... 
"Units ,"normalized', ... 
'FontSize',14, ... 
FontWeight','bold', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 

Position', [0.173363 0.872038 0.659226 0.101106], ... 

"String ,'Plot Selection For Gross Weight Iteration’, ... 
'Style','text', ... 
'Tag','StaticText1'); 

b 7 uicontrol(Parent;H GW IT, ... 
'Units' 'normalized', ... 
'FontSize' 12, ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 

Position',[0.21875 0.707741 0.568452 0.0647709], ... 

'string','Check The Boxes Below For Desired Plots', ... 
'Style','text', ... 
"Таг, МайсТехо)); 

H GW IT P1 - uicontrol(Parent';H GW IT, ... 
"Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
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Position', [0.150298 0.603476 0.705357 0.0458136], ... 

'String', Total Power Required vs Gross Weight (No HIGE Calculations)',... 
'Style' 'checkbox', ... 

"Tag' 'Checkbox1'); 

H GW IT P2 - uicontrol(Parent,H GW IT, ... 

"Units ,'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Роз1Ноп', [0.151786 0.545901 0.702381 0.0473934], ... 
‘String’, Rotor Drag vs Gross Weight … 
'Style','checkbox, ... 

‘Tag’, Checkbox 1’); 

H GW IT P3 - uicontrol(Parent,H GW IT, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0. 150298 0.489907 0.705357 0.0458136], ... 
‘String 'Required Collective Pitch vs Gross Weight ,,... 
'Style','checkbox', ... 

'Tag' 'Checkbox1'); 

H GW IT P4 —- uicontrol(Parent,H GW IT, ... 

"Units', normalized", ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position', [0.151786 0.432333 0.702381 0.0473934], ... 
'String','1st Lateral Cyclic Term vs Gross Weight... 
"Style" 'checkbox', ... 

"Таг", СПесКЬох!); 

H GW IT P5 - uicontrol(Parent,H GW IT, ... 

'Units' 'normalized", ... 

‘BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.150298 0.376338 0.705357 0.0458136], ... 
'String','1st Longitudinal Cyclic Term vs Gross Weight',... 
'Style','checkbox', ... 

"Tag,'Checkbox1*); 

H GW ІТ P6 - uicontrol(Parent,H GW IT, ... 

'Units' 'normalized". ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
‘Position’, [0.151786 0.318764 0.702381 0.0473934], ... 
‘String’,'Coefficient of Thrust vs Gross Weight... 
‘Style’,‘checkbox’, ... 

"Тар, СһесКБох 1; 

H GW IT P7 - uicontrol(Parent,H GW IT, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.150298 0.26277 0.705357 0.0458 136], ... 
‘String’,'Coefficient of Power vs Gross Weight... 
'Style','checkbox', ... 

"Tag',' Checkbox]1'); 

H GW IT P$ - uicontrol(Parent,H GW IT, ... 

'Units' 'normalized", ... 

‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.151786 0.205196 0.702381 0.0473934], ... 
'String' Figure of Merit vs Gross Weight',... 
'Style','checkbox, ... 

"Tag,'Checkbox1*); 
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H GW IT P9 - uicontrol(Parent''H GW IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941]. ... 
'Position', [0.150298 0.149201 0.705357 0.0458136], ... 
'String','HIGE Power Required vs Gross Weight (Only if HIGE Calcs Were Completed)',... 
'Style''checkbox', ... 

"Тар ,СһесКбох17; 

р = uicontrol(Parent; H GW IT, ... 

'Units' 'normalized', ... 
'Callback','create plots fcn plots', ... 

'FontSize',12, ... 

‘FontWeight'’, bold, ... 

‘Position’, [0.589286 0.01 0.235119 0.0677165], ... 

'String','Create Plots', ... 

‘Tag','Pushbutton 1°); 

b = uicontrol('Parent',H_GW IT, … 

'Units' 'normalized', ... 

'Callback','out count-1;create plots fcn back, ... 

'FontSize', 12, ... 

'FontWe1ght' 'bold", ... 

"Position', [0.178571 0.01 0.235119 0.0677165], ... 

"String '«« Back, ... 

‘Tag','Pushbutton 1"); 
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APPENDIX AY. BLADETAPERRATIO ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the blade taper ratio 
iteration method. 


function bladetaperratio iteration plots() 


% Plot Routine For Blade Taper Ratio Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load bladetaperratio iteration plots 


global H BTR. ITH. BTR IT P1H BTR IT P2H BTR IT P3H BTR IT P4H BTR IT PS... 
H BTR IT P6H BTR IT P7 H BTR IT P8 


Н ВТК IT - figure('Units','normalized', … 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'Name''Blade Taper Ratio Iteration Plots', … 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
Position', [0.170898 0.0963542 0.65625 0.824219], ... 
"Lag bei 

b = uicontrol(Parent''H BTR IT, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.847059 0.752941 0.627451], ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
‘Position’, [0.173363 0.872038 0.659226 0.101106], ... 
‘String’, ‘Plot Selection For Blade Taper Ratio Iteration’, ... 
Style ext... 
"Таг, мапсТех И), 

b = uicontrol('Parent' H_BTR_IT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.847059 0.752941 0.627451], ... 
'FontSize',12, ... 
'Position', [0.21875 0.707741 0.568452 0.0647709], ... 
'String','Check The Boxes Below For Desired Plots', … 
'Style''text', … 
‘Tag','StaticText2'); 

Н ВТК IT Pl = uicontrol(‘Parent',H_BTR IT, … 
'Units' 'normalized', ... 
Position', [0.150298 0.603476 0.705357 0.0458136], ... 
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'String' Total Power Required vs Blade Taper Ratio',... 
'Style','checkbox', ... 

"Tag','Checkbox 1^); 

H BTR IT P2 = uicontrol('Parent',H_BTR IT, … 

'Units' 'normalized", ... 

"Position',[0.151786 0.545901 0.702381 0.0473934], ... 
'String','Rotor Drag vs Blade Taper Ratio’... 
'Style','checkbox', ... 

‘Tag, Checkbox 1’); 

H BTR IT P3 - uicontrol(Parent; H BTR IT, ... 

'Units' 'normalized", ... 

"Position', [0.150298 0.489907 0.705357 0.0458136], ... 
'String','Required Collective Pitch vs Blade Taper Ratio',... 
'Style','checkbox', ... 

'Tag' Checkbox1'); 

H BTR IT P4 - uicontrol(Parent''H BTR IT, ... 

'Units' 'normalized', ... 

'Position', [0.151786 0.432333 0.702381 0.0473934], ... 
'String,'1st Lateral Cyclic Term vs Blade Taper Ratio',... 
'Style' 'checkbox', ... 

'Tag','Checkbox1'); 

H_BTR_IT_P5 = uicontrol('Parent',H_BTR_IT, ... 

'Units' 'normalized", ... 

'Position', [0.150298 0.376338 0.705357 0.0458136], ... 
'String','1st Longitudinal Cyclic Term vs Blade Taper Ratio',... 
'Style','checkbox', ... 

"Таг, СПесКЬох!)), 

Н ВТЕ IT P6 = uicontrol(‘Parent',H_ BTR IT, … 

'Units''normalized', … 

'Position', [0.151786 0.318764 0.702381 0.0473934], ... 
'String' 'Coefficient of Thrust vs Blade Taper Ratio’... 
'Style' 'checkbox', ... 

'Tag''Checkbox1'); 

H BTR IT P7 - uicontrol(Parent''H BTR IT, ... 

'Units' 'normalized", ... 

'Position', [0.150298 0.26277 0.705357 0.0458136], ... 
'String',' Coefficient of Power vs Blade Taper Ratio',... 
'Style','checkbox', ... 

‘Tag''Checkbox 1"); | 

Н ВТК IT P8 = uicontrol('Parent',H_BTR_IT, ... 

'Units' 'normalized', ... 

Position' [0.151786 0.205196 0.702381 0.0473934], ... 
‘String’, Figure of Merit vs Blade Taper Ratio',... 

'Style' 'checkbox', ... 

"Таг, СПесКЬох!)); 

b = uicontrol(Parent',' H BTR IT, ... 

'Units' 'normalized", ... 

'Callback' 'create_plots fen plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

"Position', [0.589286 0.01 0.235119 0.0677165], ... 

‘String „'Create Plots', … 

'Tag',' Pushbutton!'); 
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b 7 uicontrol(Parent,;H BTR IT, ... 
'Units',"normalized', ... 
'Callback','out count-l;create plots fcn back’, ... 
'FontSize',12, ... 
‘Font Weight’, ‘bold’, ... 
‘Position’, [0.178571 0.01 0.235119 0.0677165], ... 
‘String’,’<< Back, ... 
"Tag ,'Pushbutton1?); 
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APPENDIX AZ. NO ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the no iteration 
method. 


function no iteration plots() 


9, Plot Routine For No Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

. % To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load no_iteration_plots 


global H NO ІТ 5 РЕКЕ INPUT S MATR VEC plot val H NO IT PIH NO IT P2H_NO П РЗ... 
H NO IT P4 filename3 out count PLOT VALSH r VECr vec 


Н №О IT = figure('Units''normalized', … 
'Color' [0.8 0.8 0.8], ... 
'Colormap',mat0, ... 

"Маше' "№ Iteration Plots', … 

"Number Tue off, ... 
PointerShapeCData',mat], ... 
"Position', [0.169922 0.0976562 0.65625 0.825521], ... 
Lag bel 

b — uicontrol(Parent,;H NO IT, ... 
'Units' 'normalized", ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
"Position', [0.173363 0.872038 0.659226 0.101106], ... 
‘String,’ Plot Selection For Single Run (No Iteration)', ... 
'Style','text', ... 
"Tag','StaticText1*); 

b = uicontrol(Parent;H МО ІТ, ... 
'Units' 'normalized", ... 
'FontSize', 12, … 
Position', [0.21875 0.707741 0.568452 0.0647709], ... 
Stong Check The Boxes Below For Desired Plots’, ... 
Style text.. 
'Tag','Static Text2'); 

H NO IT PI - uicontrol(Parent,H NO IT, ... 
'Units' 'normalized", ... 
‘Position’, [0.13244 0.609449 0.732143 0.0456693], ... 
'String','2-D Thrust vs. r/R (plotted at psi = 0,90,180,270 deg)’, ... 
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'Style','checkbox', ... 
"Таг, СПесКЬох!), 

H NO IT P2 - uicontrol(Parent,;H NO IT, ... 
'Unmits' 'normalized", ... 
'Position',[0.13244 0.551181 0.732143 0.0472441], ... 
'String','3-D Thrust vs. r/R Mesh), ... 
'Style','checkbox', ... 
"Tag','Checkbox1^); 

H NO IT P3 - uicontrol(Parent; H NO IT, ... 
'Units' 'normalized", ... 
'Position' [0.136905 0.489907 0.705357 0.0458136], ... 
'String', Thrust vs. Psi At Fixed r/R Values (User will input r/R values)’, ... 
'Style','checkbox', ... 
"Таг, СПесКЬох!); 

b - uicontrol(Parent; H NO IT, ... 
'Umits' 'normalized', ... 
"Position' [0.136905 0.404724 0.100833 0.0708661], ... 
‘String’,'r/R =", ... 
‘Style’, ‘text’, ... 
‘Tag’, StaticText3"); 

Н г УЕС = uicontrol(Parent'' H NO IT, ... 
'Units' 'normalized", ... 
‘Position’, [0.258479 0.354331 0.60306 0.12126], ... 
‘String',", ... 
Style texten 
Тар StaticText4”); 

b = uicontrol(Parent';' H NO IT, ... 
"Units','normalized', ... 
'Position' [0.136905 0.267717 0.275298 0.0598425], ... 
'String', Enter desired r/R values in matrix form (ie. [.7,.8])’, ... 
'Style','text', ... 
'Tag’,'StaticText5’); 

b = uicontrol(Parent' H NO IT, ... 
'Units' 'normalized'", ... 
'BackgroundColor' [1 1 1], ... 
'Position',[0.418155 0.270866 0.428571 0.0566929], ... 
"String ,'[ J^, ... 

'Callback','global PLOT VALS, PLOT VALS-str2num(get(gcbo,"String"));',... 
'Style''edit', … 

‘Tag’, EditText1'); 

Н КО П Р4 - шсоппо(Рагеп,Н NO IT, ... 
'Units' 'normalized", ... 
'Position',[0.133929 0.177953 0.735119 0.0472441], ... 
'String','2-D Normal Force (Lift) vs. r/R (plotted at psi = 0,90,180,270 deg)’, ... 
'Style' 'checkbox', ... 
"Таг", СПесКЬох!); 

b = uicontrol(Parent''H NO IT, ... 
'Units' 'normalized", ... 
'Position',[0.13244 0.11811 0.735119 0.0456693], ... 
'String','Blank‘, ... 
'Style','checkbox', ... 
"Tag','Checkbox1^); 

b — uicontrol(Parent;H NO IT, ... 
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'Units' 'normalized", ... 

'Callback','create plots fcn plots', ... 
'FontSize', 12, ... 
'"FontWeight','bold', ... 
'Position', [0.583333 0.0188976 0.235119 0.0677165}, ... 
'String','Create Plots', ... 
"Tag ,'Pushbutton1*); 

b - uicontrol(Parent; H NO IT, ... 

'Units' 'normalized", ... 
'Callback''out count-l;create plots fcn back, ... 
'FontSize',12, ... 
Font Weight','bold', ... 
"Position',[0.184524 0.0204724 0.235119 0.0677165], ... 
'String','<< Back‘, ... 

'Tag','Pushbutton!'); 

b = uicontrol(Parent; H NO IT, ... 

'Units' 'normalized", ... 
'Рояноп', [0.13244 0.248819 0.733631 0.292913], ... 
'Style' 'frame', ... 
"Таг, Егате!); 


assignin('base','r_vec',r_vec) 
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APPENDIX BA. BLADETWIST ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the blade twist 
iteration method. 


function bladetwist iteration plots() 


96 Plot Routine For Blade Twist Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load bladetwist iterabon plots 


global H BT ITH BT IT P1H BT IT P2H BT IT P3H BT ІТ РАН ВТ ІТ P5... 
H BT IT P6H BT IT P7H BT IT PS 


Н ВТ ІТ = figure(Units''normalized', … 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'Name','Blade Twist Iteration Plots’, ... 
"Number fie oft ... 
'PointerShapeCData',matl, ... 
'Position', [0.170898 0.0963542 0.65625 0.824219}, ... 
"Тар, Тірі); 

b = uicontrol(Parent, H BT IT, ... 
"Units", normalized, ... 
'BackgroundColor',(0.847059 0.752941 0.627451], ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
'Position',[0.173363 0.872038 0.659226 0.101106], ... 
'String', Plot Selection For Blade Twist Iteration’, ... 
"Style text o 
"Iag','StaticTextl'); 

b = uicontrol(‘Parent',H BT IT, … 
'Units' 'normalized", ... 
'BackgroundColor',(0.847059 0.752941 0.627451], ... 
'FontSize',12, ... 
Position',[(0.21875 0.707741 0.568452 0.0647709], ... 
‘String’,'Check The Boxes Below For Desired Plots", ... 
"Style text ... 
Tag' 'StaticText2”); 

H BT IT P1 - uicontrol(Parent'' H BT IT, ... 
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'Units' 'normalized", ... 

'Position',[0.150298 0.603476 0.705357 0.0458136], ... 

‘String’, Total Power Required vs Blade Twist'… 
'Style','checkbox., ... 

"Tag,'Checkbox1); 

Н ВТ IT P2 - uicontrol(Parent,H BT IT, ... 

"Units', normalized, ... 

'Position',[0.151786 0.545901 0.702381 0.0473934], ... 
'String' Rotor Drag vs Blade Twist ,... 

'Style' 'checkbox', ... 

"Таг", СресКЬох!); 

H BT IT P3 - uicontrol(Parent,H BT IT, ... 

'Units' 'normalized', ... 

'Position', [0.150298 0.489907 0.705357 0.0458136], ... 
‘String’,"Required Collective Pitch vs Blade Twist’... 
Style. checkbox... = 

'Tag’,'Checkbox1'); 

Н ВТ IT P4 - uicontrol(Parent';' H BT IT, ... 

'Units' 'normalized', ... 

'Position',[0.151786 0.432333 0.702381 0.0473934], ... 
'String'‘,'1st Lateral Cyclic Term vs Blade Twist',... 
'Style','checkbox', ... 

'Tag','Checkbox1'); 

Н ВТ IT P5 - uicontrol(Parent''H BT IT, ... 

'Units' 'normalized', ... 

"Position',[0.150298 0.376338 0.705357 0.0458136], ... 
'String''1st Longitudinal Cyclic Term vs Blade Twist'.... 
'Style' 'checkbox', ... 

"Tag','Checkbox1); 

Н ВТ IT P6 - uicontrol(Parent,H BT IT, ... 

"Units','normalized', ... 

"Position', [0.151786 0.318764 0.702381 0.0473934], ... 
‘String’,'Coefficient of Thrust vs Blade Twist’... 
'Style' 'checkbox', ... 

'Tag','Checkbox1'); 

H BT IT P7 - uicontrol(Parent'' H BT IT, ... 

'Units' 'normalized', ... 

‘Position’, [0.150298 0.26277 0.705357 0.0458136], ... 
‘String’,'Coefficient of Power vs Blade Twist'.... 
'Style' 'checkbox', ... 

‘Tag „'Checkbox 1); 

H BT IT P8 = uicontrol(‘Parent',H_BT IT, … 

'Units' 'normalized', ... 


"Position" [0.151786 0.205196 0.702381 0.0473934], ... 


'String' Figure of Merit vs Blade Twist',... 
'Style','checkbox, ... 
"Таг, СпесКЬох!); 
b = uicontrol(Parent''H BT IT, ... 
"Units',normalized', ... 
'Callback',create plots fcn plots', ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
‘Position’, [0.589286 0.01 0.235119 0.0677165], ... 
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'String' 'Create Plots’, ... 
'Tag', Pushbutton 1°; 

b = uicontrol('Parent',H_BT IT, … 
'Units''normalized', … 
'Callback'''out count-l;create plots fcn back... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.178571 0.01 0.235119 0.0677165], ... 
'String','<< Back‘, ... 
'Tag','Pushbutton!'); 
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APPENDIX BB. ROTORRAD ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the rotor radius 
iteration method. 


function rotorrad iteration plots() 


% Plot Routine For Rotor Radius Iteration. 
95 JANRAD 98 VERSION 5.0 


9o This is the machine-generated representation of a Handle Graphics object 
9o and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load rotorrad_iteration_plots 


global H RBR_ITH RBR_IT_P1 H RBR_IT P2H RBR_IT P3H RBR_IT P4H RBR IT P5... 
H RBR IT P6 


H RBR IT - figure('Units',' normalized", ... 
'Color', [0.8 0.8 0.8], ... 
'Colormap',mato0, ... 
"Name','Main Rotor Blade Radius Iteration Plots’, ... 
'NumberTitle','off‘, ... 
PointerShapeCData', mat], ... 
"Position', [0.170898 0.0963542 0.65625 0.824219], ... 
"Lag Fei 
b = uicontrol(Parent' H RBR IT, ... 
'Units' 'normalized", ... 
'FontSize' 14, ... 
'FontWeight','bold', ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.173363 0.872038 0.659226 0.101106], ... 
‘String’, Plot Selection For Rotor Blade Radius Iteration’, ... 
"Style text... 
"Tag','StaticText1'); 
Б = uicontrol(Parent'H RBR IT, ... 
'Units' 'normalized', ... 
'FontSize' 12, ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.21875 0.707741 0.568452 0.0647709], ... 
'String',' Check The Boxes Below For Desired Plots', ... 
Style” text, 
"Таг, МапсТехо)); 
H RBR IT PI - uicontrol(Parent,; H RBR IT, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
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"Position', [0.150298 0.603476 0.705357 0.0458136)], ... 

"String ,'Rotor, Tail and Total Power Required vs Blade Radius … 
'Style' 'checkbox', ... 

"Tag ,'Checkbox1*); 

H RBR IT P2 - uicontrol(Parent,;H RBR IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.151786 0.545901 0.702381 0.0473934], ... 
'String''Aux Thrust and Drag vs Blade Radius.,... 

'Style' 'checkbox', ... 

"Таг", СПесКЬох!); 

Н ЕВЕ IT P3 - uicontrol(Parent'' H RBR IT, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.150298 0.489907 0.705357 0.0458136], ... 
'String',' Required Collective Pitch vs Blade Radius',... 
‘Style’, checkbox , … 

‘Tag 'Checkbox 1’); 

H RBR IT P4 - uicontrol(Parent'' H RBR IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.151786 0.432333 0.702381 0.0473934], ... 
'String', Tail Rotor Power Required vs Blade Radius'.... 
'Style' 'checkbox, ... 

"Таг, СПесКЬох!); 

H RBR IT P5 - uicontrol(Parent,H RBR IT, ... 

"Units','normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position', [0.150298 0.376338 0.705357 0.0458136], ... 
'String','Figure of Merit vs Blade Radius;,... 
'Style','checkbox', ... 

"Таг, СПесКЬох!); 

H RBR IT P6 - uicontrol(Parent,H RBR IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position', [0.151786 0.318764 0.702381 0.0473934], ... 
'String' Disk Loading vs Blade Radius',... 
'Style','checkbox', ... 

"Tag','Checkbox1'); 

b = uicontrol(Parent''H RBR IT, ... 

'Units' 'normalized", ... 
'Callback','create plots fcn plots', ... 

'FontSize',12, ... 

'FontWeight,'bold', ... 

‘Position’, [0.589286 0.01 0.235119 0.0677165], ... 

'String',' Create Plots’, ... 

"Tag ','Pushbutton1*); 

b = uicontrol(Parent'; H RBR IT, ... 

"Units',"normalized', ... 

'Callback','out count-l;create plots fcn Баски, ... 

'FontSize',12, … 

FontWeight','bold', ... 

"Position', [0.178571 0.01 0.235119 0.0677165], ... 
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'String','<< Back', … 
'Tag', Pushbutton 1°; 
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APPENDIX BC. ROTORSPD ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the rotor speed 
iteration method. 


function rotorspd iteration plots() 


% Plot Routine For Rotor Speed Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

9o To reopen this object, just type the name of the M-file at the MATLAB 
9o prompt. The M-file and its associated MAT-file must be on your path. 


load rotorspd iteration plots 
global H RBS ITH RBS ІТ РІН RBS IT P2H RBS IT P3H RBS IT P4H RBS IT P5 


H_RBS IT = figure('Units' 'normalized", ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
"Маше' "Маш Rotor Blade Speed Iteration Plots, ... 
Number (ue oft ... 
'PointerShapeCData',matl, ... 
'Position',[0.170898 0.0963542 0.65625 0.824219], ... 
‘Tag’, Figl'); 
6 = uicontrol(Parent'' H RBS IT, ... 
'Units' 'normalized', ... 
'FontSize' 14. ... 
'FontWeight''bold", ... 
'BackgroundColor',(0.752941 0.752941 0.752941], ... 
'Position',(0.173363 0.872038 0.659226 0.101106], ... 
'String','Plot Selection For Rotor Blade Speed Iteration', ... 
‘Style’, text, .-. 
"Tag','StaticText1*); 
b 7 uicontrol(Parent',' H RBS IT, ... 
"Units', normalized", ... 
'FontSize' 12, ... 
'BackgroundColor',(0.752941 0.752941 0.752941], ... 
"Position' [0.21875 0.707741 0.568452 0.0647709], ... 
'String','Check The Boxes Below For Desired Plots’, ... 
Style, text m 
'Tag','StaticText2'); 
H RBS IT PI - uicontrol(Parent',' H RBS IT, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0,752941 0.752941], ... 
'Position',[0.150298 0.603476 0.705357 0.0458136], ... 
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'String', Rotor, Tail and Total Power Required vs Blade Speed',... 
‘Style’,'checkbox’, ... 

"Тар", СПесКкЬох!); 

H RBS IT P2 - uicontrol(Parent'' H RBS IT, ... 

'Units''normalized'", ... 

'ВасКртоипаСо]юг' [0.752941 0.752941 0.752941], ... 
'Position', [0.151786 0.545901 0.702381 0.0473934], ... 
'String','Aux Thrust and Drag vs Blade Speed',... 
'Style','checkbox', ... 

‘Tag, Checkbox 1’); 

H RBS IT P3 - uicontrol(Parent,;H RBS IT, ... 

'Units' 'normalized', ... 

'BackgroundColor', (0.752941 0.752941 0.752941], ... 
"Position',[0.150298 0.489907 0.705357 0.0458136], ... 
'String', Required Collective Pitch vs Blade Speed',... 
'Style','checkbox', ... 

"Tag','Checkbox1*); 

Н RBS IT P4 - uicontrol(Parent;H RBS IT, ... 

'Units', normalized", ... 

'ВасКртоипаСоюг' [0.752941 0.752941 0.752941], ... 
‘Position’, [0.151786 0.432333 0.702381 0.0473934], ... 
'String' Tail Rotor Power Required vs Blade Speed"... 
'Style','checkbox', ... 

'Tag' 'Checkbox1'); 

H RBS IT P5 = uicontrol(Parent; H RBS IT, ... 

"Units',' normalized", ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position', [0.150298 0.376338 0.705357 0.0458136)], ... 
'String','Disk Loading vs Blade Speed',... 
'Style','checkbox', ... 

"Tag','Checkbox1'); 

b = uicontrol(‘Parent’,H RBS IT, ... 

'Units''normalized", ... 
'Callback','create plots fcn plots’, ... 

FontSize',12, ... 

'FontWeight','bold', ... 

"Position", [0.589286 0.01 0.235119 0.0677165], ... 

'String','Create Plots; ... 

"Tag','Pushbutton1*); 

b = uicontrol('Parent',H_RBS IT, … 

'Units''normalized", ... 

‘Callback','out count=l;create plots fen back", ... 

'FontSize',12, ... 

'FontWeight''bold", ... 

'Position', [0.178571 0.01 0.235119 0.0677165}, ... 

'String','<< Back, ... 

"Tag", Pushbutton1”); 
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APPENDIX BD. STARTOFTAPER ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the start of taper 
iteration method. 


function startoftaper iteration plots() 


% Plot Routine For Start of Taper Iteration. 
% JANRAD 98 VERSION 5.0 


9o This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load startoftaper iteration plots 


global H SOT IT H SOT IT P1H SOT IT P2H SOT IT P3H SOT IT P4H SOT IT P5.. 
H SOT IT P6H SOT IT P7H SOT IT P8 


H_SOT IT = figure('Units' 'normalized', ... 
'Color',[0.8 0.8 0.8]. ... 
'Colormap',mat0, ... 
'Name' 'Start Of Taper Position Iteration Plots', ... 
'NumberTitle' oft ... 
'PointerShapeCData',matl, ... 
‘Position’, [0.170898 0.0963542 0.65625 0.824219}. ... 
Тар" Тірі); 

b = uicontrol(Parent'' H SOT IT, ... 
'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 
'FontWeight','bold', ... 
'Position',[0.173363 0.872038 0.659226 0.101106), ... 
'String','Plot Selection For Start Of Taper Position Iteration', ... 
'Style','text', ... 
"Iag','Static Text 1*); 

b — uicontrol(Parent;H SOT IT, ... 
"Units ','normalized', ... 

'BackgroundColor',[0.75294] 0.752941 0.752941], ... 

'FontSize',12, ... 
‘Position’, [0.21875 0.707741 0.568452 0.0647709], ... 
‘String’,’Check The Boxes Below For Desired Plots’, ... 
‘Style’, ‘text’, ... 
'Tag','StaticText2'); 

H SOT IT P1 - uicontrol(Parent;H SOT IT, ... 
"Units 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
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'Position', [0.150298 0.603476 0.705357 0.0458136], ... 

‘String, Total Power Required vs Start Of Taper Position',... 
'Style','checkbox', ... 

"Tag','Checkbox1*); 

H SOT IT P2 - uicontrol(Parent; H SOT IT, ... 

"'Units',normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Розшоп', [0.151786 0.545901 0.702381 0.0473934], ... 
'String''Rotor Drag vs Start Of Taper Position',... 
'Style','checkbox', ... 

"Тар", СПесКЬох!); 

H SOT IT P3 - uicontrol(Parent' H SOT IT, ... 

'Units',"normalized', ... 

'BackgroundColor', (0.75294 1 0.752941 0.752941], ... 
"Position', [0.150298 0.489907 0.705357 0.0458136], ... 
'String' Required Collective Pitch vs Start Of Taper Position',... 
'Style','checkbox', ... 

"Таг, СПесКЬох!); 

H SOT IT P4 - uicontrol(Parent; H SOT IT, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.151786 0.432333 0.702381 0.0473934], ... 
'String'‚'1st Lateral Cyclic Term vs Start Of Taper Position',... 
'Style','checkbox', ... 

‘Tag, Checkbox 1’); 

H SOT IT P5 - uicontrol(Parent;H SOT IT, ... 

'Units',normalized', ... 

'BackgroundColor', [0.75294] 0.752941 0.752941], ... 
‘Position’, [0.150298 0.376338 0.705357 0.0458136], ... 
'String''1st Longitudinal Cyclic Term vs Start Of Taper Position’... 
'Style','checkbox', ... 

"Таг, СПесКЬох!), 

H SOT IT P6 - uicontrol(Parent''H SOT IT, ... 

'Units' 'normalized', ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position', [0.151786 0.318764 0.702381 0.0473934], ... 
'String','Coefficient of Thrust vs Start Of Taper Position',... 
'Style','checkbox', ... 

"Tag','Checkbox15); 

H SOT IT P7 - uicontrol(Parent;H SOT IT, ... 

'Units' 'normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
'Position',[0.150298 0.26277 0.705357 0.0458136], ... 
'String','Coefficient of Power vs Start Of Taper Position',... 
'Style' 'checkbox', ... 

"Таг, СПесКЬох!), 

H SOT IT P$ - uicontrol(Parent;H SOT IT, ... 

"'Units',"normalized', ... 

‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.151786 0.205196 0.702381 0.0473934]. ... 
‘String’,'Figure of Merit vs Start Of Taper Position’.... 
'Style' 'checkbox', ... 

"Таг", СПесКЬох!); 
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b = uicontrol(Parent''H SOT IT, ... 

'Units' 'normalized', ... 
‘Callback','create_plots fen plots’, ... 

'FontSize',12, ... 
'FontWeight','bold', ... 
"Position' [0.589286 0.01 0.235119 0.0677165], ... 
‘Stnng’,’Create Plots’, ... 
'Tag’,"Pushbutton1'); 

b = uicontrol(Parent''H SOT IT, ... 
'Units' 'normalized', ... 
'Callback''out_count=1;create_plots fcn back’, ... 
'FontSize', 12, ... 
'FontWeight','bold', ... 
'Position', [0.178571 0.01 0.235119 0.0677165], ... 
'String','<< Back‘, ... 
'Tag','Pushbutton]’'); 
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APPENDIX BE. WINGSPANAREA ITERATION PLOTS.M 


This script M-file creates a screen listing available plots for the wing span area 
iteration method. 


function wingspanarea iteration plots() 


% Plot Routine For Wing Span Area Iteration. 
% JANRAD 98 VERSION 5.0 


% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load wingspanarea iteration plots 


global H WSA ITH. WSA IT P1H WSA IT P2H WSA IT P3 H УУ5А ІТ РАН УУ5А IT P5... 
H WSA IT P6H WSA IT P7 H WSA IT P8H WSA IT P9H WSA IT P10 


H WSA ІТ = figure('Units''normalized', … 
'Color',[0.8 0.8 0.8], ... 
'Colormap', mato, ... 
'Name' Wing Span Area Iteration Plots', ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',mat1, ... 
"Position',[0.170898 0.0963542 0.65625 0.824219], ... 
"ТТар,Тір17; 

b - uicontrol(Parent' H WSA IT, ... 
'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontSize',14, ... 
'FontWeight','bold', ... 
‘Position’, [0.173363 0.872038 0.659226 0.101106], ... 
"String ,'Plot Selection For Wing Span Area Iteration’, ... 
‘Style’, ‘text’, ... 
'Tag’,'StaticText1'); 

b = uicontrol('Parent',H_WSA IT, … 
'Units''normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'FontSize' 12. ... 
Position', [0.21875 0.707741 0.568452 0.0647709], ... 
'String''Check The Boxes Below For Desired Plots', … 
"Style text”, ... 
"Tag, StaticText2”); 

H WSA IT PI - uicontrol(Parent''H WSA IT, ... 
'Units' 'normalized", ... 
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'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.150298 0.603476 0.705357 0.0458136], ... 

'String', Total Power Required vs Wing Span Area',... 
'Style','checkbox', ... 

"Tag','Checkbox1^); 

H WSA IT P2 = uicontrol(‘Parent',H_ WSA IT, … 

'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position', [0.151786 0.545901 0.702381 0.0473934], ... 
'String''Aux Thrust and Drag vs Wing Span Area"... 
'Style' 'checkbox', ... 

"Таг, СПесКкЬох!), 

H WSA IT P3 = uicontrol(‘Parent',H_ WSA IT, … 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.75294] 0.752941], ... 
"Position',[0.150298 0.489907 0.705357 0.0458136], ... 
'String',' Required Collective Pitch vs Wing Span Area',... 
'Style','checkbox’, ... 

"Tag','Checkbox1'); 

H WSA IT P4 - uicontrol(Parent, H WSA IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position' [0.151786 0.432333 0.702381 0.0473934], ... 
'String',"Wing Lift vs Wing Span Area',... 
'style','checkbox,, ... 

"Таг, СПескЬох!); 

H WSA IT P5 - uicontrol(Parent,H WSA IT, ... 

"Units','normalized', ... 

'BackgroundColor', [0.75294 1 0.752941 0.752941], ... 
Position',[0.150298 0.376338 0.705357 0.0458136)], ... 
‘String’, Tail Rotor Power Required vs Wing Span Area',... 
'Style','checkbox', ... 

"Таг", СПесКЬох!); 

H WSA IT P6 - uicontrol(Parent;H WSA IT, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position',[0.151786 0.318764 0.702381 0.0473934], ... 
String, Coefficient of Thrust vs Wing Span Area',... 
'Style','checkbox', ... 

"Тар! СһескВох1)); 

Н WSA IT P7 - uicontrol(Parent' H WSA IT, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position', [0.150298 0.26277 0.705357 0.0458136], ... 
"String, Coefficient of Power vs Wing Span Area',... 
'Style','checkbox', ... 

"Tag','Checkbox1'); 

H WSA IT P8 - uicontrol(Parent,H WSA IT, ... 

'Units''normalized', ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
Position', [0.151786 0.205196 0.702381 0.0473934], ... 
'String','Figure of Merit vs Wing Span Area',... 
'style','checkbox', ... 
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"Таг", OCheckbos 
H_WSA_IT_P9 = uicontrol(‘Parent',H_ WSA IT, … 
'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position',[0.150298 0.14376 0.702381 0.0473934], ... 
'String','Disk Loading vs Wing Span Area‘, ... 

'Style' 'checkbox', ... 
'Tag' 'Checkbox1"); 

H WSA. IT P10 - uicontrol(Parent,H WSA IT, ... 
'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0.150298 0.0853081 0.702381 0.0473934], ... 
"String", Percent of Total Lift on Wing vs Wing Span Area', … 
'Style','checkbox', ... 

"Tag' 'Checkbox1'); 

b = uicontrol(‘Parent',H_ WSA IT, … 
'Units' 'normalized', ... 

'Callback','ereate plots fcn plots’, ... 

'FontSize',12, ... 
'FontWeight','bold', ... 
"Position', [0.589286 0.01 0.235119 0.0677165], ... 
'String','Create Plots', ... 
'Tag', Pushbutton 1°; 

b = uicontrol(Parent,H WSA IT, ... 
"Units ,'normalized', ... 
'Callback','out count-l;create plots fcn back', … 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.178571 0.01 0.235119 0.0677165], ... 
'String','<< Back‘, ... 
'Tag', Pushbutton!'); 
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APPENDIX BF. QUIT GUI.M 


This file creates GUI to verify the users intention to quit JANRAD 98. 


function quit gui() 


9o This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


% JANRAD 98 VERSION 5.0 
load quit_gui 


a = figure('Units' 'normalized", ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap', mato, ... 
"МепиВаг,попе,... 
'Name' 'Quit JANRAD 987", ... 
'NumberTitle' 'off, ... 
'PointerShapeCData' matl, ... 
'Position',[0.235938 0.433333 0.389063 0.266667], ... 
"Lag Fei 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'Callback','close (gcf)', ... 
'FontSize',12, ... 
FontWeight','bold', ... 
Position', [0.188755 0.273438 0.240964 0.15625], ... 
‘String’,"NO’, ... 
"Tag','Pushbutton1*); 
b = uicontrol('Parent',a, ... 
"Units',normalized', ... 
'Callback','close all,clear,clear global', ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.566265 0.273438 0.240964 0.15625], ... 
‘Sting YES. 
'Tag',"Pushbutton2'); 
b = uicontrol('Parent',a, ... 
'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
FontSize',12, ... 
'FontWeight','bold', ... 
Position',[0.192771 0.59375 0.618474 0.289062], ... 
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‘String’, Do Хоп КеаПу Want to Quit JANRAD 98?', ... 
style’, text, =. 
'Tag',’StaticText1'); 

b = wcontrol('Parent',a, … 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0401606 0.0625 0.907631 0.898438], ... 
'ЅуЈе', тате", ... 
"Tag','Framel*); 


316 


APPENDIX BG. STABILITY CONTROL INPUTI.M 


This M-file creates the first of two stability and control module parameter input 
screens 


function stability control input 10) 

% This is the machine-generated representation of a Handle Graphics object 
% and its children. Note that handle values may change when these objects 
% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


load stability control input 1 


a = figure( Units ,'"normalized,, ... 
'Color',[0.8 0.8 0.8], ... 
'Colormap',mato, ... 
'CreateFcn''global MESH_VAL, MESH_VAL=0;;", ... 
'Name','Stability and Control Parameters; ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
'Position', [0.005 0.04 0.9975 0.89], ... 
‘Tag’, Fig2)); 
b = uimenu(Parent'a, ... 
'Label' 'JANRAD Options", ... 
'Tag' 'ulmenul”); 

с = uimenu('Parent',b, ... 
'Callback','performance input fcn quit', ... 
'Label','Quit JANRAD', ... 

"Tag, JANRAD OptionsSubuimenu!’); 

с = uimenu( Parent! b, ... 
'Callback','performance input fcn return; ... 
‘Label’,'Return to Begining’, ... 

"Tag, JANRAD OptionsSubuimenul?); 

c 7 uimenu( Parent' b, ... 
'Callback','performance input fcn delta input ... 
'Enable','off, ... 

'Label','Change Input Parameters’, ... 
'Tag','Subuimenul'); 

c 7 uimenu( Parent b, ... 
'Callback','performance input fcn about, ... 
'Label','About Janrad 98 ..., ... 

'Separator','on‘, ... 
"Tag ','Subuimmenu1*); 
b 7 uicontrol( Parent a, ... 
"Units , normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position',[0.0197109 0.75 0.17477 0.0538462)], ... 
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'String','Flapping Moment of Inerüa (slug-ft^2)', ... 
‚Style text. 
'Tag'‘,'StaticText?'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback''PA=get(gcbo,"String");S USER INPUT. PA=str2num(PA);', ... 
'Position', [0.215506 0.751923 0.0985545 0.0480769], ... 
'Style','edit', ... 
'Tag','EditText1'); 

b = uicontrol('Parent',a, ... 
"Units ‚'normalized)', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.0197109 0.694231 0.17477 0.0538462], ... 
‘String’,"Hub Height Above Waterline (ft)’, ... 
Style! text... 
'Tag' 'StaticText2”); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 


'Callback' 'temp=get(gcbo,"String");S USER INPUT. temp=str2num(temp);', ... 


‘Position’, [0.215506 0.694231 0.0985545 0.0480769]. ... 
'Style' 'edit”, ... 
"Tag ,'EditText1^); 
b 7 uicontrol( Parent, ... 
'Units', normalized", ... 
'BackgroundColor',[0.7 52941 0.752941 0.752941], ... 
Position', [0.021025 0.640385 0.17477 0.05], ... 
'String','Hub Fuselege Station (ft)’, ... 
Style text', ... 
'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 
‘Units ‚'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback' Vin=get(gcbo,"String");S USER INPUT. Vinf=str2num(Vinf);', … 
'Position', [0.215506 0.640385 0.0985545 0.05], ... 
'Style','edit‘, ... 
'Tag', EditText1'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0197109 0.582692 0.17477 0.05], ... 
'String','Hub Position Right of Buttline (ft)', ... 
'Style','text', ... 
'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Callback','GW-get(gcbo,"String);:S USER INPUT.GW=str2num(GW);', … 
'Position', [0.21682 0.586538 0.0972405 0.0480769], ... 
'Style','edit', ... 
"Tag','EditText1*); 
b = uicontrol( Parent',a, ... 
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'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0.0197109 0.521154 0.17477 0.0538462], ... 
'String','Mast Incidence (negative fwd-degrees);, ... 
'Style','text', ... 

"Таг, МайсТехо)); 

uicontrol('Parent',a, ... 

'Units' 'normalized', ... 

'BackgroundColor',[1 1 1], ... 
'Callback','omega-get(gcbo,"String);S USER INPUT.omega-str2num(omega);., ... 
'Position', [0.215506 0.528846 0.0985545 0.0480769], ... 

'Style','edit', ... 

"Tag ,'EditText1*); 

uicontrol( Parent a, ... 

"Units',"normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0315375 0.353846 0.173456 0.0480769], ... 

'String', Height Above waterline (ft)', ... 

Style text.. 

'Tag','StaticText2"); 

uicontrol('Parent',a ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 
'Callback','naz-get(gcbo,"String);S USER INPUT.naz=str2num(naz);', … 
‘Position’, [0.215506 0.351923 0.0985545 0.0480769], ... 

'Style' edit”, ... 

'Tag', EditTextl'); 

uicontrol( Parent',a, ... 

'Units' 'normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

'Position', [0.0341656 0.294231 0.17477 0.05], ... 

'‘String', Fuselage Station (ft)', ... 

SWIC text, 

"Tag,'StaticText2); 

uicontrol('Parent',a, ... 

'Units' 'normalized", ... 

'BackgroundColor', [1 1 1], ... 

'Callback' 'thetao=get(gcbo,"String");S_ USER INPUT .thetao=str2num(thetao);', ... 
‘Position’, [0.2 15506 0.294231 0.0985545 0.05], ... 
'Style','edit, ... 

"Tag','EditText1*); 

uicontrol('Parent',a, ... 

"Units," normalized", ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0341656 0.238462 0.173456 0.0480769], ... 
'String',' Position Right of Buttline (ft), ... 

'Style' text”, ... 

'Tag' 'StaticText2”); 

uicontrol( Parent',a, ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 
‘Callback','Swing=get(gcbo,"String");S_ USER INPUT.Swing=str2num(Swing);', … 
'Position', [0.215506 0.236538 0.0985545 0.0480769], ... 
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'Style','edit,, ... 
"Tag ,'EditText1*); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized'", ... 
'BackgroundColor',[0.75294] 0.752941 0.752941], ... 
'Position',[0.0341656 0.182692 0.173456 0.0480769], ... 
'String',' Alpha Zero Lift (degrees)), ... 
'Style','text', ... 
"Таг, МайсТехо)); 

b = uicontrol('Parent',a, ... 
"Units','normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback','bwing-get(gcbo,"String";S USER INPUT.bwing^str2num(bwing);, ... 
‘Position’, [0.215506 0.180769 0.0985545 0.0480769], ... 
'Style','edit, ... 
"Тар EditTextl”; 

b = uicontrol('Parent',a, ... 

` 'Units','normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0341656 0.126923 0.173456 0.0480769], ... 
'String',' CL Max‘, ... 
'Style' text”, ... 
"Таг, майсТехо)); 

b = uicontrol('Parent',a, ... 
"Units ,'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback','CLwing-get(gcbo,"String^);S USER INPUT .CLwing=str2num(CLwing);”, ... 
"Position', [0.215506 0.125 0.0985545 0.0480769], ... 
'Style','edit', ... 
"Tag ,'EditText1'); 

b = uicontrol('Parent',a, ... 
"Units',normalized', ... 
'BackgroundColor',[0.75294] 0.752941 0.752941], ... 
'Position', [0.0354796 0.0692308 0.173456 0.0557692], ... 
'String','Dynamic Pressure Ratio (page 489-Prouty)', ... 
'Style','text', ... 
"Таг, майсТехо)); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
‘Callback''CDowing=get(gcbo,"String");S USER INPUT.CDowing=str2num(CDowing);', … 
Position',[0.214192 0.0711538 0.0998686 0.0480769], ... 
'Style','edit', ... 
‘Tag’, EditText1'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
Position',[0.0341656 0.0269231 0.173456 0.0346154], ... 
'‘String''Lift Curve Slope', … 
'Style''text', … 
‘Tag','StaticText2'); 

р = wicontrol('Parent',a, … 
'Units' 'normalized', ... 
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'BackgroundColor' (1 1 1], ... 
'Callback','twist-get(gcbo,"String";S USER. INPUT.twist-str2num(twist);', ... 
'Position', [0.21682 0.0173077 0.0985545 0.0480769], ... 
'Style','edit', ... 
'Tag', EditTextl'); 
b = uicontrol(Parent' a, ... 
'Units' 'normalized'", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'"Position', [0.688073 0.729207 0.173001 0.0464217], ... 
‘String’, 'Height Above Waterline (ft), ... 
'Style','text', .. 
"Tag,'StaticText2; 
b 7 uicontrol( Parent, ... 
'Units' 'normalized". ... 
'BackgroundColor' [1 1 1], .. 
'Callback''a=get(gcbo, "String"); S USER INPUT a=str2num(a);', ... 
"Position', [0.880734 0.729207 0.0982962 0.0483559], .. 
'Style','edit', 
'Tag''EditTextl'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
"Position',[0.688073 0.659574 0.174312 0.0483559], ... 
'String','Hub Fuselage Station (ft)', ... 
'Style','text', ... 
"Tag','StaticText2^); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [1 1 1], .. 


'Callback' Taw=get(gcbo, "String"); S USER INPUT.Taux=str2num(Taux);', … 


'Position', [0.882045 0.659574 0.0982962 0.0483559], .. 
Style edit, . 
"Tag" 'EditTextl"); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized'", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize' 6, ... 
"Position', [0.688073 0.591876 0.174312 0.0483559], ... 
'String' Position Right of Buttline (ft), ... 
Style. text, = 
"Tag ,'StaticText2"); 

b 7 uicontrol('Parent'a, ... 
"Units ,' normalized", ... 
'BackgroundColor' (1 1 1], .. 
'Callback' 'Afh=get(gcbo, "String"); S USER INPUT. d 
'Position', [0.882045 0.59381 0.0982962 0.0483559], .. 
'Style','edit', . 
"Tag" 'EditTextl"); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized'", ... 
'ВасКртоипаСо]ог', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.688073 0.528046 0.174312 0.0483559], ... 
'String','Number of Blades’, ... 
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‘Style text, 
'Tag'.'StaticText2'); 

b = uicontrol('Parent',a, ... 
"Units',normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Callback''Afv=get(gcbo,"String");S_ USER INPUT. Afv=str2num(Afv);”, ... 
'Position',[0.882045 0.529981 0.0982962 0.0483559], ... 
'Style''edit', … 
"Tag','EditText1*); 

b 7 uicontrol( Parent, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.688073 0.464217 0.174312 0.0483559], ... 
'String','Blade Chord (ft), ... 
'Style' text”, ... 
'Tag' StaticText2”); 

b = uicontrol('Parent' a, ... 
'Unitts' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'Svert=get(gcbo,"String");S_USER INPUT. Svert=str2num(Svert);”, ... 
‘Position’, [0.882045 0.466151 0.0982962 0.0483559], ... 
'Style' 'edit”, ... 
"Tag ,'EditText1*); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
Position', [0.688073 0.398453 0.174312 0.0483559], ... 
'String' 'Blade Radius (ft), ... 
'Style','text', ... 
'Tag','StaticText2'); 

b = uicontrol('Parent' a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'bvert=get(gcbo,"String");S_USER_ INPUT bvert=str2num(bvert);”, ... 
"Розшоп', [0.882045 0.400387 0.0982962 0.0483559], ... 
'Style','edit', ... 
"Tag ,'EditText1^); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position", [0.688073 0.334623 0.174312 0.0483559], ... 
Stong Lift Curve Slope’, ... 
'Style','text', ... 
"Tag','StaticText2"); 

b 7 uicontrol( Parent, ... 
"Units ,'normalized', ... 
'BackgroundColor' [1 1 1], ... 
‘Callback','CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert);’, ... 
‘Position’, [0.882045 0.336557 0.0982962 0.0483559], ... 
'Style','edit', ... 
'Tag', EditTextl'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
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'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.687254 0.261538 0.17477 0.0538462], ... 
‘String’, Rotational Velocity (rad/sec)', … 
'Style','text', ... 
'Tag','StaticText2'); 
b = uıcontrol('Parent',a, ... 
'Units','normalized', ... 
'BackgroundColor',(1 1 1], ... 
'Callback' 'CDovert=get(gcbo,"String");S USER INPUT. .CDovert=str2num(CDovert);', ... 
'Position', [0.882045 0.272727 0.0982962 0.0483559], ... 
'Style','edit', ... 
"Tag ,'EditText1'); 
b 7 uicontrol( Parent',a, ... 
'Units', normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.687254 0.192308 0.17477 0.0596154], ... 
'String','Flap Moment of Inertia (slug-ft^2)., ... 
"Style, text, ... 
"Tag ,'StaticText2"); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor',(1 1 1], ... 
'Callback' 'Shoriz=get(gcbo,"String");S USER INPUT Shoriz=str2num(Shoriz);”, ... 
'Position', [0.882045 0.206963 0.0982962 0.0483559], ... 
'Style' 'edit”, ... 
"Tag ,'EditText1*); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'ВасКртоипаСо]ог', [0.752941 0.752941 0.752941], ... 
"Position', [0.688073 0.141199 0.174312 0.0483559], ... 
‘String’,"Delta-3 Angle (degrees), ... 
‘Style’, ‘text’, ... 
'Tag' 'StaticText2”); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',(1 1 1], ... 
'Callback' 'bhoriz=get(gcbo,"String");S USER INPUT bhoriz=str2num(bhoriz);, ... 
'Position', [0.882045 0.145068 0.0982962 0.0464217], ... 
'Style''edit', … 
‘Tag’, EditText1'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.688073 0.0773694 0.174312 0.0483559], ... 
‘String Blade Twist (degrees)', ... 
'Style','text', ... 
"Tag' StaticText2”); 
b = uicontrol('Parent',a, ... 
'Units',"normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback','CLhoriz-get(gcbo,"String^);S USER INPUT.CLhoriz-str2num(CLhoriz);, ... 
'Position', [0.882045 0.0793037 0.0982962 0.0483559], ... 
‘Style edit.. 
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'Tag’, EditText 1"); 
b = uicontrol('Parent',a, ... 
'Units','normalized', ... 
'Callback' 'performance input fen back’, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
Position',[0.339028 0.0115385 0.164258 0.0807692], ... 
'String','«« Back, ... 
'Tag', Pushbutton 1°; 
b 7 uicontrol( Parent, ... 
'Units' 'normalized', ... 
'Callback' 'performance_input_fen print”, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
‘Position’, [0.509855 0.00961538 0.164258 0.0807692]. ... 
'String','Print Screen), ... 
'Tag' 'Pushbutton2”); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized'", ... 
'Callback','Pperformance input fcn cnx, ... 
FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.339028 0.1 0.164258 0.0807692], ... 
'String','Cance!', ... 
Таг, РизпЬийопЗ)), 
b 7 uicontrol( Parent',a, ... 
'Units' 'normalized", ... 
‘Callback’ matz, ... 
'FontSize',12, ... 
Font Weight','bold', ... 
'Position', [0.51117 0.1 0.164258 0.0807692], ... 
‘String’,'Continue >>', ... 
"Tag ,'Pushbutton4?); 
b = uicontrol( Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
FontWeight','bold', ... 
Position',[0.0175439 0.805243 0.294486 0.0898876], ... 
‘String’, MAIN ROTOR PARAMETERS. ... 
‘Style’, ‘text’, ... 
"Tag, Static Text1); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'FontSize' 14, … 
'FontWeight','bold', ... 
‘Position’, [0.022339 0.403846 0.296978 0.0903846]. ... 
'String," VERTICAL FIN PARAMETERS, ... 
"Style", text, ... 
"Tag','StaticText1*); 
b = uicontrol('Parent',a, ... 
"'Units','normalized', ... 
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'BackgroundColor', (0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
'Position', [0.755357 1.09524 0.296199 0.0831721], ... 
'String' 'MAIN ROTOR PARAMETERS, ... 
'Style','text', ... 
'Tag' 'StaticTextl”; 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
"BackgroundColor', (0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
'Position', [0.686763 0.798839 0.288336 0.0889749], ... 
‘String’, TAIL ROTOR PARAMETERS", ... 
'Style','text', ... 
'Tag’,’StaticText1'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',(0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
'Position', [0.122807 0.917603 0.763158 0.0692884], ... 
'String,'STABILITY AND CONTROL PARAMETERS (PAGE 1 OF 2), ... 
'Style','text', ... 
"ag ,'StaticText3*); 

b 7 uicontrol( Parent, ... 
'Units' 'normalized', ... 
'BackgroundColor',(0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'FontWeight','bold', ... 
‘Position’, (0.360419 0.796905 0.288336 0.0889749]., ... 
‘String’, "HORIZONTAL TAIL PARAMETERS. ... 
'Style','text', ... 
‘Tag’, StaticText 1’); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'Shoriz=get(gcbo,"String");S USER INPUT. Shoriz=str2num(Shoriz),', ... 
Position', (0.554391 0.206963 0.0982962 0.0483559], ... 
'Style','edit', ... 
Таг, ЕдиТех!)), 

b = uicontrol('Parent'a, ... 
'Units' 'normalized', ... 
'BackgroundColor' (0.752941 0.752941 0.752941], ... 
Position',(0.360053 0.196154 0.173456 0.0557692], ... 
'String','Fuselage Downwash Ratio (page 489 Prouty)', … 
'Style','text', ... 
'Tag’,'StaticText2'); 

р = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',(1 1 1], ... 


'Callback','CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert);', ... 


'Розшоп', [0.554391 0.272727 0.0982962 0.0483559], ... 


325 


'Style','edit', ... 
‘Tag’, EditText1'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position', [0.358739 0.261538 0.17477 0.0538462], ... 
'String','Rotor Downwash Ratio (page 489 Prouty)', … 
'Style','text', ... 
"Tag ,'StaticText2); 
b = uicontrol('Parent',a, ... 
"Units',"normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Callback','CLvert-get(gcbo,"String);S USER INPUT.CLvert-sti2num(CLvert);,, ... 
'Position', [0.554391 0.336557 0.0982962 0.0483559], ... 
'Style','edit', ... 
‘Tag’, EditText1'); 
р = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.75294] 0.752941], ... 
'Position', [0.360053 0.328846 0.173456 0.0538462], ... 
'String',' Dynamic Pressure Ratio (page 489 Prouty)', ... 
'Style','text', ... 
'Tag','StaticText2'); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback''bvert=get(gcbo,"String”);S USER INPUT bvert=str2num(bvert);”, ... 
'Position' [0.554391 0.400387 0.0982962 0.0483559) ... 
'Style','edit', ... 
"Tag „EditText 1’); 
р = uicontrol( Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.360419 0.398453 0.174312 0.0483559], ... 
'String' 'Lift Curve Slope', ... 
"Style text ... 
'Tag','StaticText2'); 
b = uicontrol('Parent' a. ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'Svert=get(gcbo,"String");S_USER_ INPUT Svert=str2num(Svert);”, ... 
'Position', [0.554391 0.466151 0.0982962 0.0483559], ... 
'Style','edit', ... 
"Tag ,'EditText1'); 
b — uicontrol( Parent' a, ... 
"Units',' normalized', ... 
'"BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.3604 19 0.464217 0.174312 0.0483559], ... 
'String','Angle of Incidence (degrees), ... 
'Style','text', ... 
'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
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b 


b 


b 


b 


b 


b 


= 
= 


'BackgroundColor',[1 1 1], ... 
'Callback','Afv-get(gcbo,"String);S USER INPUT.Afv-str2num(Afv);, ... 
"Position', [0.554391 0.529981 0.0982962 0.0483559], ... 
'Style','edit', ... 

‘Tag’, EditText1’), 

uicontrol('Parent',a, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.3604 19 0.528046 0.174312 0.0483559], ... 
'String','Alpha Zero Lift (degrees)', ... 

'Style','text', ... 

'Tag', Static Text2'); 

uicontrol('Parent',a, ... 

'Units' 'normalized", ... 

'BackgroundColor', [1 1 1}, … 

'Callback' 'Afh=get(gcbo,"String");S_ USER INPUT.Afh-str2num(Afh);,, ... 
'Position',[0.554391 0.59381 0.0982962 0.0483559], ... 
'Style','edit, ... 

"Tag ,'EditText1*); 

uicontrol('Parent',a, ... 

"Units','normalized', ... 

‘BackgroundColor’, [0.752941 0.752941 0.752941]. ... 
'FontSize',6, ... 

"Position', [0.360053 0.590385 0.173456 0.0480769], ... 
'String','Position Right of Buttline (ft))’, ... 

‘Style’, ‘text’, … 

'Tag','StaticText2'); 

uicontrol( Parent',a, ... 

"'Units','normalized', ... 

'BackgroundColor',(1 1 1], ... 
'Callback','Taux-get(gcbo,"String);S USER INPUT.Taux-str2num(Taux);, ... 
'Position', [0.554391 0.659574 0.0982962 0.0483559], ... 
'Style','edit', ... 

"Tag', EditText1”); 

uicontrol( Parent',a, ... 

"Units", normalized", ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.360419 0.659574 0.174312 0.0483559], ... 
'String', Fuselage Station (fD', ... 

‘Style’, text, 

Таг, майсТехо?), 

uicontrol('Parent',a, ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 
'Callback''a=get(gcbo,"String"),S USER INPUT .a=str2num(a);, ... 
'Position', [0.55308 0.729207 0.0982962 0.0483559], ... 
'Style','edit', ... 

'Tag', EditText1"); 

uicontrol(‘Parent’,a, ... 

'Units' 'normalized'", ... 

'BackgroundColor' [0.752941 0.752941 0.752941], ... 
‘Position’, [0.359109 0.727799 0.173001 0.046332], ... 
‘String’, "Height Above Waterline (ft)’, ... 
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Style text 
'Tag','StaticText2'); 

b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
'Position',[0.00626566 0.513109 0.317043 0.38764], ... 
'Style','frame', ... 
"Tag','Framel^; 

b = uicontrol('Parent'a, ... 
'Units' 'normalized", ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 


‘Position’, [0.0075188 0.011236 0.317043 0.490637], ... 


'Style','frame', ... 
'Tag', Frame2'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941}, … 
"Position', [0.338346 0.192884 0.324561 0.713483], ... 
'Style', frame‘, ... 
'"Tag','Frame3'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
"BackgroundColor', [0.752941 0.752941 0.752941], ... 
"Position', [0.679198 0.071161 0.309524 0.835206], ... 
'Style','frame!, ... 
"Tag', Frame4”); 
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APPENDIX BH. STABILITY CONTROL INPUT2.M 


This M-file creates the second of two stability and control module parameter input 
screens 


function stability control input 2() 

% This is the machine-generated representation of a Handle Graphics object 

% and its children. Note that handle values may change when these objects 

% are re-created. This may cause problems with any callbacks written to 

% depend on the value of the handle at the time the object was saved. 

% 

9o To reopen this object, just type the name of the M-file at the MATLAB 
Фо prompt. The M-file and its associated MAT-file must be on your path. 


load stability control input 2 


а = figure('Units''normalized", ... 
'Color', [0.8 0.8 0.8], ... 
'Colormap',mat0, ... 
'CreateFcn',global MESH VAL, MESH VAL^0;;.. 
'Name','Stability and Control Parameters page 2', ... 
'NumberTitle' 'off, ... 
'PointerShapeCData',matl, ... 
'Position',[0.0025 0.0483333 0.9975 0.89], ... 
Тар Ғір2)); 
b = uimenu('Parent',a, ... 
'Label',' JANRAD Options; ... 
‘Tag ,uimenul’); 

c 7 uimenu( Parent',b, ... 
'Callback','performance input fcn quit, ... 
'Label','Quit JANRAD', ... 

'Tag''JANRAD OptionsSubuimenul”; 

с = uimenu('Parent',b, ... 
'Callback','performance input fcn return', ... 
'Label','Return to Begining', … 

"Tag, JANRAD OptionsSubuimenul); 

c 7 uimenu( Parent b, ... 
'Callback','performance input fcn delta input, ... 
'Enable','off, ... 

'Label','Change Input Parameters, ... 
'Tag', Subuimenu 1'); 

с = uimenu('Parent',b, ... 
'Callback',performance input fcn about, ... 
'Label',' About Janrad 98 ..., ... 

'Separator','on', ... 
"Tag ,'Subuimenul*); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941), ... 
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'Position', [0.0160214 0.763359 0.174667 0.0534351}, ... 
'String',' Long Cyclic Pitch per inch deflection (degrees/in), ... 
'Style','text', ... 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], .. 
'Callback' 'PA=get(gcbo, "String"); S USER INPUT. ll m 
'Position', [0.217867 0.76673 0.0985545 0.0478011}, .. 
'Style','edit,, . 
"Tag EditTextl'); 

b 7 uicontrol( Parent'aa, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0160214 0.708015 0.1749 0.0534351], ... 
'String','Lateral Cyclic Pitch per inch deflection (deg/in),, ... 
'Style','text', . 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
"Units','normalized), ... 
'BackgroundColor',[1 1 1], ... 
‘Callback’, 'temp=get(gcbo,"String");S_USER_INPUT.temp=str2num(temp);’, ... 
‘Position’, [0.217867 0.709369 0.0985545 0.047801 1], ... 
'Style','edit, ... 
Tag’, EditText!'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.75294] 0.752941 0.752941], ... 
'Position', [0.0160214 0.650763 0.173565 0.0515267}, ... 
'String','Collective pitch per inch deflection (deg/in), ... 
'Style','text', ... 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [1 1 1], .. 
'Callback' 'Vinf=get(gcbo, "String"; S USER INPUT. ие inf);', 
‘Position’, [0.217867 0.652008 0.0985545 0.0516252], .. 
'Style','edit', . 
"Tag" 'EditText1); 

b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
‘BackgroundColor’, [0.752941 0.752941 0.752941], ... 
‘Position’, [0.0160214 0.530189 0.1749 0.0528302}, ... 
'String' NOTAR slv twst/defl (deg. or in. travel) 1000 for TR‘, ... 
‘Style’, ‘text’, ... 
'Tag’,'StaticText2'); 

b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [1 1 1], ... 
'Callback','omega-get(gcbo,"String?);S USER INPUT.omega-str2num(omega);, ... 
Position', [0.218045 0.535581 0.0977444 0.0468165], .. 
'Style','edit‘, ... 
‘Tag’, EditText1'); 
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b 7 uicontrol( Parent a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position',[0.0291139 0.357414 0.173418 0.0361217], ... 
'String','Height Above waterline (ft)', ... 
'Style', text, ... 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units''normalized', … 
'BackgroundColor' (1 1 1], .. 
'Callback' 'naz=get(gcbo, "String"); S USER INPUT. ео En 
'Position',[0.21682 0.351923 0.0985545 0.0480769], .. 
'Style' 'edit”, . 
'Tag''EditTextl'); 

b = uicontrol('Parent',a, ... 
'Units','normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0293725 0.290566 0.1749 0.0509434], ... 
'String','Boom Fuselage Station (ft)', ... 
Style text, 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
"'Units',normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback','thetao-get(gcbo,"String";S USER INPUT.thetao-str2num(thetao);', ... 
‘Position’, [0.21682 0.294231 0.0985545 0.05], ... 
'Style','edit', ... 
'Tag’,"EditText1'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.0293725 0.233962 0.173565 0.0490566], ... 
'String,'Boom Position Right of Buttline (ft)! ... 
'Style','text', ... 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units','normalized', ... 
'BackgroundColor',[1 1 1], .. 
'Callback','Swing-get(gcbo, "String"); S USER INPUT. NU 
‘Position’, [0.21682 0.236538 0.0985545 0.0480769], .. 
'Style','edit', . 
"Tag" 'EditText1"); 

Б = uicontrol('Parent',a, .. 
‘Units’, ‘normalized’, . 
‘BackgroundColor’, 10. 752941 0.752941 0.752941], .. 
Position',[0.0293725 0.19434 0.173565 0. 0358491], .. 
"String ,'NOTAR diameter (ft)),, ... 
"style text... 
"Tag' 'StaticText2”); 

b = uicontrol('Parent'a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
‘Callback’, ‘bwing=get(gcbo,"String");S_USER_INPUT.bwing=str2num(bwing);’, ... 
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b 


b 


b 


b 


b 


‘Position’, [0.21682 0.180769 0.0985545 0.0480769]. ... 
'Style''edit', … 

"Tag','EditText1*); 

uicontrol( Parent',a, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

‘Position’, [0.0293725 0.120755 0.173565 0.0584906], ... 

'String' 'Swirl Angle at Boom (degrees)', ... 

lo. text. ... 

"Тар StaticText2”); 

uicontrol('Parent',a, ... 

'Units' 'normalized", ... 

'BackgroundColor' [1 1 1], ... 

'Caliback' 'CLwing=get(gcbo,"String");S_ USER _INPUT.CLwing=str2num(CLwing);', … 
'Position', [0.21682 0.125 0.0985545 0.0480769], ... 

'String',", ... 

'Style','edit‘, ... 

‘Tag’, EditText1'); 

uicontrol('Parent',a, ... 

'Units' 'normalized', ... 

'BackgroundColor', [0.752941 0.752941 0.752941], ... 

'Position', [0.0293725 0.0792453 0.173565 0.0339623], ... 

"5шшр, ХОТАК Мах Еогсе (105),... 

'Style','text,, ... 

'Tag' 'StaticText2”); 

uicontrol('Parent'a, ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 
'Callback','CDowing-get(gcbo,"String";S USER INPUT.CDowing-str2num(CDowing);,, ... 
"Position", [0.215506 0.0711538 0.0998686 0.0480769], ... 
'Style','edit', ... 

'Tag', EditTextl'); 

uicontrol('Parent',a, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.0293725 0.0113208 0.173565 0.0528302], ... 
'String',"Thruster Fuselage Station (ft)', ... 

'Style','text', ... 

"Iag','StaticText2"); 

uicontrol( Parent'aa, ... 

'Units' 'normalized", ... 

'BackgroundColor',[1 1 1], ... 

‘Callback’, 'twist=get(gcbo,"String");S_USER_INPUT.twist=str2num(twist);’, ... 
'Position', [0.21682 0.0173077 0.0985545 0.0480769], ... 
'Style','edit,, ... 

"Tag ,'EditText1*); 

uicontrol( Parent',a, ... 

'Units' 'normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.68594 0.745698 0.173456 0.0458891], ... 
‘String’,"Height Above Waterline (ft), ... 

'Style','text', ... 

"Tag ,'StaticText2"); 
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b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback''a=get(gcbo,"String");S USER INPUT. a=str2num(a);”, ... 
'Position', [0.88042 0.74761 0.0985545 0.0478011], ... 
‘Style’, ‘edit’, ... 
"Tag' EditTextl”); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.68594 0.674952 0.17477 0.0497132], ... 
'String','Fuselage Station (ft)', ... 
'Style','text', ... 
"Tag' 'StaticText2”); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [1 1 1], ... 
'Callback' 'Taux=get(gcbo,"String");S USER INPUT Taux=str2num(Taux),,, ... 
'Position', [0.881735 0.676864 0.0985545 0.0497132], ... 
'Style','edit', ... 
'Tag', EditTextl'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',6, ... 
'Position', [0.68594 0.609943 0.173456 0.0478011], ... 
'String','Position Right of Buttline (ft)’, ... 
'Style','text', ... 
"Tag','StaticText2)); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Callback','Afh=get(gcbo,"String");S_ USER_INPUT.Afh=str2num(Afh);’, ... 
'Position',[0.881735 0.611855 0.0985545 0.0478011], ... 
'Style','edit', ... 
"Таг,ЕфдиТех!и)); 

b = uicontrol('Parent',a, ... 
'Units',' normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
Position',[0.68594 0.544933 0.17477 0.0478011], ... 
'String','Alpha Zero Lift (degrees), ... 
'Style','text', ... 
'Tag’,'StaticText2'); 

b — uicontrol( Parent',a, ... 
"Units ,'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback','Afv-get(gcbo,"String);S USER INPUT.Afv-str2num(Afv);, ... 
‘Position’, [0.881735 0.548757 0.0985545 0.047801 1], ... 
'Style','edit', ... 
"Iag ,'EditText 1^); 

р = uicontrol(‘Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
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"Position', [0.68594 0.481836 0.173456 0.0497132], ... 
'String' 'Angle of Incidence (degrees), ... 
style» texb ... 
"Tag ,'StaticText2); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Callback' 'Svert=get(gcbo,"String");S USER INPUT Svert=str2num(Svert);”, ... 
'Position', [0.881735 0.483748 0.0985545 0.0497132], ... 
'Style','edit', ... 
'Tag', EditText1'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.68594 0.355641 0.17477 0.0478011], ... 
"String" Tip Chord (ft), ... 
'Style','text', ... 
"Tag, StaücText2); 

b 7 uicontrol( Parent, ... 
"Units',' normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'bvert=get(gcbo,"String"),S USER INPUT bvert=str2num(bvert);, ... 
"РозШоп', [0.881735 0.418738 0.0985545 0.047801 1], ... 
'Style','edit,, ... 
"Таг, ЕФиТехЦ), 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position', [0.68594 0.416826 0.17477 0.0478011], ... 
'String', ' Lift Curve Slope, ... 
'Style','text', ... 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units',normalized', ... 
'BackgroundColor',[1 1 1]. ... 
'Callback','CLvert=get(gcbo,"String");S_USER INPUT.CLvert=str2num(CLvert);', ... 
'Position',[0.881735 0.355641 0.0985545 0.0478011], ... 
'Style','edit', ... 
"Tag ,'EditText 1^); 

b = uicontrol('Parent',a, ... 
'Units',normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.68594 0.286807 0.17477 0.0535373], ... 
'String''Root Chord (ft)', … 
Style text"... 
'Tag','StaticText2'); 

р = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'CDovert=get(gcbo,"String");S USER INPUT.CDovert-str2num(CDovert);,, ... 
'Position', [0.881735 0.290631 0.0985545 0.0478011], ... 
'Style','edit', ... 
"Tag','EditText1^); 
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b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position', [0.68594 0.217973 0.17477 0.0592734], ... 
'String,'Rotor Downwash Ratio (page 489-Prouty)', ... 
'Style','text', ... 
'Tag','StaticText2'); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Callback''Shoriz=get(gcbo,"String"),S_USER_INPUT.Shoriz=str2num(Shoriz);", ... 
'Position', [0.881735 0.225621 0.0985545 0.0478011], ... 
'Style''edit”, ... 
"Tag ,'EditText 1^); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'‘BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.68594 0.1587 0.173456 0.0497 132], ... 
'String', Fuselage Downwash Ratio (page 489-Prouty), ... 
'Style','text', ... 
"Tag','StaticText2; 

b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Caliback' 'bhoriz=get(gcbo,"String");S_ USER _ INPUT bhoriz=str2num(bhoriz);", ... 
'Position',[0.881735 0.162524 0.0985545 0.0478011), ... 
'Style','edit', ... 
"Tag, 'EditText1*); 

b 7 uicontrol( Parent',a, ... 
"Units", normalized", ... 
'Callback','performance input fcn back, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
‘Position’, [0.339028 0.0115385 0.164258 0.0807692], ... 
'String','<< Back’, ... 
"Tag ,'Pushbutton1?); 

b 7 uicontrol( Parent, ... 
"Units','normalized', ... 
'Callback','performance input fcn print, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
'Position', [0.510013 0.0114504 0.164219 0.0801527], ... 
'String','Print Screen), ... 
'Tag' Pushbutton2”); 

b = uicontrol(Parent' a ... 
'Units' 'normalized", ... 
'Callback',performance input fcn спх, ... 
'FontSize',12, ... 
'FontWeight','bold', ... 
"Розшоп', [0.339119 0.101145 0.164219 0.0801527], ... 
'String','Cancel', … 
‘Tag','Pushbutton3’); 

b = uicontrol('Parent',a, ... 
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'Units' 'normalized", ... 
‘Callback',mat2, … 
‘FontSize’ ,12, … 
'FontWeight','bold', ... 
"Position',[0.51117 0.1 0.164258 0.0807692], ... 
'String','Continue >>', ... 
"Таг, РизпЬийопд4)); 
b = uicontrol('Parent',a, ... 
"ив „поппаПгед,... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
'FontWeight' bold", ... 
'Position' [0.0225564 0.816479 0.290727 0.0898876], ... 
'String','RIGGING PARAMETERS, ... 
'Style','text', ... 
"Tag','StaticText1); 
р = uicontrol('Parent',a, ... 
'Units','normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',14, ... 
FontWeight','bold', ... 
'Position',[0.0200501 0.400749 0.298246 0.0505618], ... 
'String',"'NOTAR PARAMETERS, ... 
"Style, text, ... 
'Tag’,'StaticText1'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
FontSize',14, ... 
'FontWeight','bold', ... 
'Position',[0.755357 1.09524 0.296199 0.0831721), ... 
'String', MAIN ROTOR PARAMETERS', ... 
'Style','text', ... 
"Tag','StaticText1^); 
р = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.75294] 0.752941], ... 
'FontSize',14, … 
'FontWeight',bold', … 
'Position', [0.68797 0.797753 0.289474 0.0898876), … 
'String' "WING PARAMETERS;, ... 
'Style' чехї", ... 
"Tag','StaticText1'); 
р = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',14, … 
'FontWeight','bold', ... 
Position',[0. 106516 0.917603 0.763158 0.0674157], ... 
'String,' STABILITY AND CONTROL PARAMETERS (PAGE 2 OF 2), ... 
'Style','text', ... 
Е '"Tag','StaticText3'); 
b = uicontrol('Parent',a, ... 
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'Units', normalized', ... 
'BackgroundColor',[0.75294] 0.752941 0.752941], ... 
'FontSize' 14, ... 
'FontWeight' bold", ... 
'Position', [0.358396 0.754682 0.286967 0.151685], ... 
'String','CG LOCATION & INERTIAS/FUSELAGE PARAMETERS, ... 
'Style','text', ... 
"Tag ','StaticText1'); 
b = uicontrol('Parent',a, ... 
"Units',normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Callback' 'CDovert=get(gcbo,"String"),S USER INPUT. CDovert=str2num(CDovert);", ... 
'Position', [0.551905 0.248566 0.0985545 0.0478011], ... 
'Style','edit', ... 
"Tag ,'EditText1); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position, [0.356475 0.237094 0.17477 0.0535373], ... 
'String','Fuselage Downwash Ratio (page 513 Prouty)', … 
'Style','text', ... 
"Таг, МайсТех 2); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [1 1 1], ... 
'Callback' 'CLvert=get(gcbo,"String");S_ USER INPUT. CLvert=str2num(CLvert);, ... 
'Position', [0.551905 0.313576 0.0985545 0.0478011], ... 
'Style','edit', ... 
‘Tag’, EditText 1); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Position',[0.356475 0.304015 0.173456 0.0554493], ... 
'String','Ixz (slug ft^2)', ... 
"Style text’, ... 
'Tag' StaticText2”); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [1 1 1], ... 
'Callback' 'bvert=get(gcbo,"String");S USER INPUT. bvert=str2num(bvert);', ... 
'Position', [0.551905 0.376673 0.0985545 0.0478011], ... 
'Style','edit', ... 
‘Tag’, EditText 1’); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
‘BackgroundColor',[0.752941 0.752941 0.752941], ... 
‘Position’, [0.356475 0.374761 0.173456 0.0478011], ... 
‘String’, 'Izz (slug ft*2)’, ... 
‘Style’, 'text', ... 
"Тар", ЗіапсТехі2)); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
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'Callback','Svert-get(gcbo,"String");S USER. INPUT.Svert-str2num(Svert);', ... 
'Position',[0.551905 0.441683 0.0985545 0.0497132], ... 
'Style','edit', . 
"Tag" 'EditText1"); 
b 7 uicontrol('Parent a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], .. 
'Position', [0.356475 0.438931 0.173565 0.0496183], ... 
'String','Iyy (slug ft*2)’, ... 
Style text ... 
'Tag','StaticText2'); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [1 1 1], .. 
'Callback' 'Afv=get(gcbo, "String"); S USER INPUT. ا‎ 
'Position', [0.551905 0.506692 0.0985545 0.0478011], .. 
'Style','edit', . 
Tag, 'EditTextl"); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.75294 1 0.752941 0.752941], ... 
"Position', [0.356475 0.50478 0.173456 0.0478011], ... 
‘String’, 'Ixx (slug ft*2)’, ... 
'Style','text', .. 
"Тар, ЗіайсТехі2)); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized', ... 
'ВасКртоипдСоюг, [1 1 1], .. 
'Callback','Afh-get(gcbo, "String"); S USER INPUT. аш 
'Position', [0.551905 0.56979 0.0985545 0.0478011], .. 
'Style','edit', . 
"Tag, 'EditTextl"); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'FontSize',6, ... 
'Position', [0.356475 0.564885 0.172596 0.0477099], ... 
'String','CG Position Right of Buttline (ft))’, ... 
iStvle textu 
"Таг, StaticText2'); 
b 7 uicontrol( Parent, ... 
'Units' 'normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback','Taux-get(gcbo,"String");S USER INPUT.Taux-str2num(Taux);, ... 
"Position', [0.551905 0.634799 0.0985545 0.0497132], ... 
'Style' 'edit”, ... 
"Тар, Еф Техи)), 
b = uicontrol( Parent'a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
‘Position’, [0.356475 0.633588 0.172596 0.0496183], .. 
'String’,"CG Fuselage Station (ft)’, ... 
‘Style text. 
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'Tag','StaticText2'); 
b = uicontrol('Parent'a, ... 
'Units' 'normalized", ... 
'BackgroundColor' [1 1 1], ... 
'Callback','a-get(gcbo,"String";S USER INPUT.a-str2num(a);, ... 
'Position', [0.550591 0.705545 0.0985545 0.0478011], ... 
'Style','edit', ... 
‘Tag''EditText 1’); 
р = uicontrol(‘Parent',a, … 
'Units' 'normalized", ... 
'BackgroundColor' [0.752941 0.75294] 0.752941], ... 
'Position', [0.356475 0.704198 0.171278 0.0458015], ... 
'String,'CG Height Above Waterline (ft), ... 
'Style','text', ... 
"Tag ,'StaticText2"); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position', [0.0160214 0.590566 0.1749 0.0528302], ... 
'String','theta0t/pedal deflection (deg/in or deg/deg)', … 
Style text, >: 
'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 
'Units' 'normalized", ... 
'BackgroundColor',[1 1 1], ... 
'Callback', Vinf= get(gcbo,"String");S USER INPUT. Vinfstr2num(Vinf);", ... 
‘Position’, [0.217867 0.594646 0.0985545 0.0516252]. ... 
‘Style’, ‘edit’, ... 
‘Tag’, EditText1'); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized", ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.0160214 0.466038 0.1749 0.0509434], ... 
‘String’,"Max Rudder Deflection (deg or in. travel)’, ... 
Style, text 
'Tag','StaticText2'); 
b = uicontrol('Parent',a, ... 
'Units',"normalized', ... 
'BackgroundColor',[1 1 1], ... 
'Callback' 'omega=get(gcbo,"String");S USER _INPUT.omega=str2num(omega);', ... 
‘Position’, [0.217623 0.479245 0.0987984 0.0471698], ... 
'Style','edit', ... 
‘Tag’, EditText1'); 
b = uicontrol('Parent‘,a, ... 
"Units ,'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Розшоп', [0.01602 14 0.760377 0.1749 0.0528302] ... 
‘String’,'Long Cyclic Pitch per inch deflection (degrees/in), ... 
"Style texte 
'Tag','StaticText2'); 
b = uicontrol('Parent' a, ... 
'Units' 'normalized', ... 
'BackgroundColor' [0.752941 0.752941 0.752941], ... 
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Position', [0.0112782 0.464419 0.313283 0.451311], ... 
'Style' 'frame", ... 
"Тар ,„Егаше!)); 

b = uicontrol('Parent',a, ... 
'Units''normalized', … 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
"Position' [0.0125313 0.00374532 0.313283 0.455056], ... 
'Style',frame', ... 
"Tag ,Frame2); 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor', [0.752941 0.752941 0.752941], ... 
'Position',[0.344612 0.224719 0.315789 0.689139], ... 
'Style','frame', ... 
"Tag Froome 

b = uicontrol('Parent',a, ... 
'Units' 'normalized', ... 
'BackgroundColor',[0.752941 0.752941 0.752941], ... 
'Розшоп’, [0.682957 0.134831 0.310777 0.779026], ... 
'Style','frame', ... 
‘Tag’, Frame4'); 


340 


LIST OF REFERENCES 


Dean, L., Building a Graphical User Interface with MATLAB? 5, The MathWorks Inc., 
E 


Dean, L., The Design of Callbacks, MATLAB? Digest, Volume 5, No.3, December 
1997. 


Lapacik, C. F., Development of Graphical User Interface for Joint Army/Navy Rotorcraft 
Analysis and Design (JANRAD) Software , Naval Postgraduate School, Thesis for MSAE 
Degree, Monterey, Ca, 1998. 


Eccles, D. M., A Validation of the Joint Army/Navy Rotorcraft Analysis and Design 
Software by Comparison with H-34 and UUH-60A Flight Test, Naval Postgraduate 
School, Thesis for MSAE Degree, Monterey, Ca, 1995. 

Hanselman, D. C. / Littlefeild B., Mastering MATLAB?, Prentice Hall, 1996. 
Marchand, P., Graphics and GUI s with MAT. LAB®, CRC Press, 1996. 


MATLAB? 5.1 Software Documentation, Building GUI's with MATLAB", The 
MathWorks Inc., 1997. 


MATLAB? 5.1 Software Documentation, Using MA TLAB®, ch. 13, The MathWorks Inc., 
1997. 


Nicholson, R. K. Jr., Computer Code for Interactive Rotorcraft Preliminary Design 
Using a Harmonic Balance Method for Rotor Trim, Naval Postgraduate School, Thesis 
for MSAE Degree, Monterey, Ca, 1995. 


Wirth, W. M. , Linear Modeling of Rotorcraft for Stability Analysis and Preliminary 
Design, Naval Postgraduate School, Thesis for MSAE Degree, Monterey, Ca, 1993. 


Bondi, M. J. and Bjorkman, W. S., TRENDS, A Flight Test Relational Database User 's 
Guide and Reference Manual, NASA Technical Memorandum 108806, 1994. 


Gerstenberger, W. and Wood, E. R., "Analysis of Helicopter Aeroelastic Characteristics 
in High-Speed Flight”, 4/44 Journal, Vol. 1, No. 10, pp 2366-2381, November 1963 


Gessow, A. and Meyers, G. C., Aerodynamics of the Helicopter, Frederick Ungar 
Publishing Co., 1985. 


341 





INITIAL DISTRIBUTION LIST 


Defense Тесһпіса! ІлҚЮогтайоп Сепег............................................ 2 
8725 John J. Kingman Rd., STE 0944 
Ft. Belvoir, Virginia 22060-6218 


DA] KO ры ............................... 
Naval Postgraduate School 

411 Dyer Rd. 

Monterey, California 93943-5101 


Professor Gerald Lindsey, Code ААЛПЛ.......................................... 
Department of Aeronautics and Astronautics 

Naval Postgraduate School 

Monterey, California 93943-5000 


Professor E. Roberts Wood, Code AA/Wd4....................................... 
Department of Aeronautics and Astronautics 

Naval Postgraduate School 

Monterey, California 93943-5000 


LCDR. Robert L. King, USN, Code АА/Кі.................................... 
Department of Aeronautics and Astronautics 

Naval Postgraduate School 

Monterey, California 93943-5000 


IER ER 
101 Moreell Circle 
Monterey, California 93940-4828 


LCDR. William Hucke, USCG............ da E 
307 Rosslare Drive 
Arnold, Maryland 21012 


MT REO S nn... nenne 
4224 Deerpark Court 
Westlake Village, California 91361 


ОТЕЛИ оа ee 
The MathWorks, Inc. 

24 Prime Park Way 

Natick, Massachusetts 01760-150010 


Dit Miche Sen E oe ee 
Р.О. Вох 1120 
Mountain View, California 94042 


343 


10/93 22527-200 =" 


































LIUM Gi A ie hi SNCH “үз. KE n | 1 5 ag š AS ey р 
Не Lu AT AAT d Ы Еге 
EC #5 че H ays. Nm ` ' eet О Wu d? 
а ee nn Läb b K. *á t d 43 WP DÉI Dd amt m "aer 
RS CH GN d f es [ Ы "an T te " ur И 2 
ПІШІП wu Wii Ee E 
"I . ' IM n " "EP 
H MIN CHE 
||| | Me E 
Ш | AS ІІ "n noon 





‘ EK ы. 1n 
[5 e ў J 
[4 А .. ti a tse P 
TRUE ee d rte e Et 4! 3 2768 00366230 5 ; : Fun le мари en | N 
M П i D 4 DL ba ' 
AR d Lafe N (Oe » 14 Mike L | > 4 £n '. Ce T P. je ives f [ Leg: Dé 
1 ' EET ELM Dk TEC T C po! P Л t’ 


реже DOW SA? МА | š я 
3 Ke E Tus dU Wiel С ut з DI ' š р ы. Ж б D .. epum ЖАИ E TN KE ' ' 
ka АМ. 








































































































































































































































































Ц е 
а: CH DE Käch: JU uu 1 4 шеу Р Kast р WI . ne Kas Gie se d Pc LO 34 fi ' u ere H a 
LE y Le En ee Aaf, br Jed a 4 Dee E d d жары» po e£? >» P LT. ho) ИНИСИ ОГИ He " rete 1 ба FE NAT d ME ED ti Ц 
SES UM ЭИ? Wal A? UD vx ораз бі. а та Гу” УЙ; р + Fat Pte pet on nd TN DD t у OS See E ASW EEN ACI E Й +++ E база а а 
TAa Zei er we ie % LLG ЖМА ғ. t y ) Ата чи. ЛҮ А dia ПЕТ АУ ИИТ a ОС PC IHE eg o Ж . .. TTD г Б 
аА раси read ka M ден КЕЛҮ ЗАД rd derd I^ Baal D L wii ICON AE IO uU Riek OK U U SON NO LT e Si wee? ИЕ СЕТІН Ы! Ni IW D na ПЕЙТ 
а E [ИЖ Се А Ар Bee] KAS -h H E А 14461. ТАИ s ғұлыйз ks аңа; ұр а: 8 | А MET" n 
ee NEE ei E ANP E ЛД NEE N IR, ST er EEN EL ENOR НТО t. s "-— 1 e '. 
BEE М " H We a SE Ú % 1 (RP ‚ез САИ ma Haee CN DITS a C LO UR T e o e E e E ee с .. vr nt 1 
TT PDM 12 KOLLA H É D PR TA A A A TO A a и AAA ER A IE TC) 7 
ГЭСТИ УЯ b. off. ҰЛДАР, NO b o Qi ҚЫНА сори РКО Pala ps КЕТГІ 8011 41441890684. . па ET ' 
KE MO Уа) TOOT TI KA PII Ki L] " 1 И! ec teto (а Ann trei 6577 , fi Рә ‘ ЖАУ 1 Lë "Ir an ЧИ ИТ "T TI 1 I 674 П UW) 
(ure ВИ ре ny 5 КАСА i % KW t GO eka, thet do OC. ЖЕСЕ. О se se d Ce В D MCA NP d D ra tu Т D 
Käl e TA TA OPE" ٤ ۾‎ ‘ Г t A ry. TENE A SLE LOS E T 
Pi frio) ASS? De seg oe, IRAK | “” BE EE РЫ Ne, e FO IK KILLKAK DUK 5 D " E " 
UD қ KR Den ИИ РИГИ МО E tn NM or TT HG Hd р D T" LT 
Déi PERCENT RN ДД ЖУГА: d ip Ka dirf Ate ierg di Wb Wer Lt CN EC AT RO EE A 00 PERRON e? N KEE Seat 
DC CO ERD АН А? ПОА On ade eet ee ee ETORT ТАТИ rd tee ЕНІ? ath ел н rrt ridi ш! E а а | ih © 
ED PIE FT EE I RODILLA phot ТИГЕ ТА 1717 (a VEMM Hen ILICE ОСЛО ИКИ ЧА NE re, , 
?. DOCET ve SC [TTA mE tA hidro dr ds on Foto, coh be Meds hy eh. etal ah a d р (RRE (kg ed Tal фа a 
ни EE ми AE a. (Ell du LARA (CT E E T ۰ 
EX ik РА АЕ m hy ffir. "ITA ТҮЛІК! A Pitt Мені 1, i D WS? TES "E ИИ 
ЖАИ Фара hi du ATC ty oe EEM ET t T T Ер ТАТО na de 2 n 
AN O AAA + 1 ti 
АТЛЫ wé Vi IL ға Б ' , N " 
DL n MIA кофи 2 E LUN (dE? ебе пъ за A Y t t to» D 
PLAN LG m Е ОИ РР d PRISE а $ e€ We) 4 
Pall ba ban М d 4 پا‎ ҒАН E ПЕКИ И УА LAN RI NI ТЕГЕ D n sr 
ve m dad) ы PLE LUSIT, ent TTC T TC E CARS] 
LEM П motas П 
Ке а ЧЕМ e KL ee о еу 
тан A hl ا‎ 
IT (D Фа ror t П 
A Zr га t. ГЕ! "^14 LI 
KE E A “э, Г е SL Е Ы See E Аы” 
2 + Y Е р "C "D А г 5 
Е oh г! 7 Н o : ИНА LU une .. P m MT .. Ц WAT 
Lf d e aen A эе 1 t of М 0 
AC Н 1 Wahl GW AE FH) Да 5 eae sp pee ГЕ e . А 
Ы LL s.: è Á. LEWIS П Й 1 (SEN H 
ооа, ST да ИИА ТҰ аз зе 1 р (RON .. rta nta ПИ) D Й 
AH S ai pat te H (RR , сеа veste een Hett. LIC tt Lë d 
MA? 5 4. ' 1 П П 5 D D nen to D EE 1. vr 
^4. 2 d = a Es D А Й 5 f, k B ' ЕТЕГІ t А st HI 
P А el MALI El D 4 3 u D П * Й 
гари белі E Cercle Ar Se d Г R ` DI 4 В . . А 
ms T AAN AL АРТ НЕ ПИР ТҰЛ T Posa nt feet no А 1 Й eet j: 
TE, OSE Ae Oe UE II ا‎ ГРАО Aui ieu Ns uu (RAISIN Wiem? Dit DP lona ta n ' Г) ! pn i А n П n . " А 
45 EI bat "PL KE TUE ELW И LE Ld ED ЖОСА, ТИК МЕ Lis» DERI EC (oí n 
tat eol o icd i РА habu A T T Se Le Bb H A A Y TA Zu T О М eo oro oat ê t Lëtce 
Ké КА CADO P CREER 1 M ЖАЛДАЛҚАР E OS Bien, er T EE NAE г г "M" 
PRO? Y AR ARO TO RR AN AR TD по а А Inte. a tet ee 
фарове ви БО Рога ОК пия H ШИИ ЧИСИ РИА И НИКИ nan CR Ee CE ЕГЕТ P ñ Е ПВБ ei 
2 LM NATUREL на КРАСА ЕЕ ee at OD . ГЛ La det [E f on if А ' E T" 
tun aha E IE UCET ААС М АУГА ИЖ РИА КАКА Е ЛАЖ ЕТО в tee ИКА ET. ' a P" Й 1 e Й . rife 
id oeren Kee DN НИКИ Teno, Arel nieft ИЛЧ DIER ATERT AN a Es RT Ы UN WHO T sir? боо „+ ГЕТЕ пе жә 
LIO H Ze geb bel e PATET I ЖЛ LIRE PET er Ар А DI Ld prn LIMEN" TEX " А П E » n D 4 E : n г H 
2 E af (Ind. dí Ki a Wa? Zeilen, jid f "Eres RN a wm f ' en ft "Ge wet nx D D РЕ r 
UT D УЙ ТОИ А АРА А Pe СА Золе o nà 85 n ЖЕТІЛГЕН ı mh Ar Г "oe Var fe > mur In ey D Pd Й PP 
er et et ИА ТРИ: ro ant ш a П ГИ o t uut 145%”, ЕКИ Слава. Zë one ` Pun e. " ene 1 ^ г Е Р A " 
РИА А ча BUER бота? под, Види с „ба? опа "ED С ВЕ ey O Bite EH dots tui or fe ВИА ЛГ ИЕ ТЕ ШТ, tor ta [T H D 
dec D D Pd D d TEE AR AAA A A ET, "ITI I RA ed EH GN Tr mro vuv УЛ ЛЕЛЕ a 4. ТІП А i А YA "END 2d А 
TON Мерлан ҮТ s АИДА P кү ae ih PARIS LO re Фон? го он. ü bš Ла d ди bh d mnl ПОРТУ: г (WI ГЕН . 1 , ©» 1 ба ene Й " D nt Е: 
X ^ MTS К. D Phi рлі б ТУГІЛІ! АА РИ TS Vide) AP at a TERT TLT E Lë ПЕ UL D UE Dr PT . s или: D 4 NL "T , r " Й d бї ae М 
QUAD Lat Е ғ 5 NENT TÉL АЛТА ЖАЛ ЖҮЛ ИЛ Hat m D or ERAAN ен! ЕКИН: or eu tof Y e 1. virt ГАС X MP "P" .. s.a? 
AAA a Een (IC Beh kat, AAA Aha AC LR DE? TO san L Ging A APA "n ЕГ an "DET ée PE S P сета ба 
МБА BN Ga? REI A als fi» СИЛА ТҮЛҮК CI 85 A T Le DDR? sano ғы и Ш 
EE Dt ere A e RO HAREC LEE ООО ET 





AL PT e AA 









(DND d ADHS TVA) PLE I METER АНИ nn.» „fl 
a 945 


Бс sinhe s otal? pun 




































JA ^ КА DE HO TALES АЛК КГ год 1 
Ны: EE қ МИЧНЕ gidd 5 MS H ОА ЕО ШЕ NIK (SR 211 еи 

КОТА) TIMES à iD d mz +, зы, , +? DI A 

риза феите He EE RTR А, "AT у p 

et Tr н е exp cene ra dk 1 E O МАНЕ NP ЫНТЫ 

3 ig е 7147, „е э?! 4». 7. 94.) GI DT E ХА” Pro м 

Le EE ALE И т A К | ‚Pa 

ама” ыы сл аа? AN A А . қ» m te I, ow m TE F T 

GA Wei ap DOLE А E A А К ЛЕ "ОКШЫ! 
i Nep Sein KZ AY et ae IL ee | elt fey oe lle ^ 






. мыл» E EN nte типажи: 
fo У nr BE art 

de OT E TT CT EE ET 
ДЬ 















EL DE 
LITE T ET] EI 132 
ME d ue va НД 





e Е 
Bad Теч > 
A AA E 
CAP Spa. ИУ E 
Pati’ 






















PET H HA 
DZ GN 

uu ES 1% S D 

Р Oé ” o» L P 
тағар 5.) ис. КАТА Dt 
e? 130 LO AR) LEI 































А DS D АД А aer ғу. лі П n 
Т. 514.47, ТЕ D А ent E 
ON EN nom CAS 


AT RO] 

ка А HAM Apio? e» we the 

LAC вп D RET ETT 
ы Ld 

















V: WW 

... A PL 
01474 v otr”. 
А4 Lr 
“ьщ ©“ ? 
Ed 

4: 


" 
ТЕГУ. 

































































































































































































































































































































































































































































































































































































































































































"c 32 d П t WW Ce, М и 5 
ud E zn Af, Zei o G 2 H e i» ur і . N г Ы . d D " 
° H in | MI 1 7 D 4 H u , 
m 1 П . А D D H D D 
° "TEN ' D n > , "E ШЕ; П A! a П .. " D П А L] ' 
14 WA П (OO VI í م‎ .. t H 1 1 D П П . H 
Шш мъ D .. Ы 1 P ' D D ALII t ' L S t 
LLL D - f** t^( . L .. [E “ЖАГ H , 
ы” + WT . в " ee PA + - E s H 
LES П 2 hit D L] D =e • H 1 
. Ке ‚$ O e D mE 1? T i P D р . .. Ц 
LP Ц . КТТ < PR U u WU » И П ке D ГЕН , 5 è Li D П ۰ М 
40% D a'o J ‘se pt is зы Р ' D ПС te 1 H H H . ° H 
2.01 „® D Ti > WA D n П 1 E D П , 4 D 
Е . о a? D KA! D . , . H Й p: 5 D H 
Ы E D а М e .” L . " r ' e D А n “. 
а ҒЫ м DIT] VE ta " П . 2 Й D П Е 
` k ۰ 11 4 LE 2 t D Im D r H H 
NS ғыл» vt ern en Ро AV cone 7 р А А t œ i 
"UTS KE TOS H » Ц о э sr d $ 
ым Ж ДШ Ee ds 7 %- afs ет "T! во 4 " ПА D А D P Ц ‚ва 
HI то D Ys eis b H а. op " ТЕТІ , . 4 D Wi 
228 41] V bid vie? в 1I . et ' , е , ^ " i, ene LS un И А П 
цици: 1544 "3 РАН ан TI? - . t „ка „ Т" ; TI В TD D e...» 1 H 1 ۰ ` D L 
- (E wl éd! ЕЛ в, d DL m TAM NC Г ИОВ " 4 D . '. fi L ' MI Ш , ы H 
еъ уу теу D» SEHEN Vol, Ты C Isly se pny? Eé A , D D DD А - TE А D ПА П e ы L ` за, ' 
GER Me, А oe? Un эа „= en a ь 2 А me DI SC att ва D D LT Hi .% i e 
Y nr б 7 а E "a ТЕГ ete ®t . в. H - Ce H 
PO 5% sh“ A E] va ' r T ee ы Ki А : Ya Я tj M Ze? DH .. 
l A u ИИ НАЛ .” n В n 4... t ., СК E 
у: D ВИ t ETT ГЕ $ в. TO D П .. га L H 
р bed Dd ee TOD ыйы 1 ` , `. Ch % . » А .. 4 P E " ro. ot б А , 
STE > a KM) LE ы ы WI D H ' Ty А D D D 4 u. H 
эъ COP Г? / . t 64? и "IL SE "e. po yt ha! • T . n H `... А Ы er А П 
MS TE TS CP O AAN KI AN езу? e vi rn ем а Y Er? SH А Я 1 " ND jS DI te 1 . 
M ан , ПИ EEE pr en mu amra t О ТГУ ТОСТУ 4; n De e e ` e deel б D Ш d 
v” MA Le Lé LA ЕТ. TER ¢ $ dë | tre A frt be) қ IW DE 5 Ж HI » wot »e . 
E БЫЛИ vi A SN Фраъ И 2 ЭЕ GEET GETT LR TE u WI M Zog? "m А ۹ sel р s Ы L 
` Час „дъ? Веер ze Oa жолата а GT = ЗЕ vo? О SOIC y’ Ma Ц Б си. . К h Ç 
.. Да а [I , › vV er ana AY E ** kA OR T NEL ДЕ: UW H D nen >» D n HE D о 5 D 
94. а ТЫМ Lé VR р 9901 ух d 1,4412: ET e uw TS D ) t . о. "m T 1 р van Autre ` H `. 
ара Колы метры ть" 9 L sën e "btw ss ft mn Eatenk if ir Ae A 41 4 ñ Wi Ce D E 1 H 1 DES » D " 
"e ГЕТА уы» а” БА BLUT y ee! E D Es Й 1! » ' 
DIN" Ni ge pp alen TD D P N NF» P e р D 1 D ur} 
t у PM T " D , '. D D . 
ke Ke, e [i D Vi D (LTB IV a " КТІ " D “ ° to D 
EL Ды Басет НЫ d E O 4 а .. LA f 
RER ed vuan “жуз ОСИУ ELT ti А П 1 СА ` 1 ۹ 
d OZ Mix de а ka hh A Ir wi eis owe rte Л "END А . g 
Lee СС Y UN D ARM ЕА ef DI AN ТЛ MAN D "TI ' А n ку & . D 
na a brb re ‚узу НАЛ “4%, “Sis H Pydn gf ‘tLe М L Eu LI `. Г% 4.» D » Af б 
et А Dm Lum id A eL u ЧЫ ГТЗ Хал ымы” Ln CIIM IE LIE MR MN) ae TF Vor 1 А f . D 

y Ги or Дана TEA HAE VT In din da ay и [^t 4 DIN fronts mt A TS ОКЕ ЫЗА AR А e ҚЫН б ^ D . 

Иа АА LEI OO ETC LKE, “Ги ser KMD ҚАЛАН АУЫ ATI MN MM wi " "PE D ИГ. D ТИ , a 
B bet at CE PET Da ir or eh KK 5 M Va sé d LW St. WA) > 1 
SG kg TA ne M ttr tor D LU ELM Y D Ж n 5 D D D Ц d "E . 

ы DECIES БА ы | МА меда 4 А (OT RI ft t 
EECH CMN "p. Уы bé “. ЖУКТИ "X me D a ~ . D E H H H ы 
A аа ae Я ma $ wi Ké A ' СУЫ ШИ; e аи 0 е 
ЕЕ ba D EE D 6.0. TW Г 557 474% V O А eer 2 D 165 247% 

"TS LN KEN LN MM ME HT n RW MET Ts Penne eer? HAS E NH EEN А ии : TP 
ESCH AN e Щи KA L M .% EM A ell " = Pr И GC Ce Ee ee GE на в ATL T H 
О аа ny 1٥ Rang ... DC WC SCR UT ЖЕСЕ " aie З 4. ‚о в б , n 
Hd hi rk oe a vt Ч SRA Ы М м b ы, I a». Tn ‚у D teer лье el LÀ > һы Ы ve ۰ d moe 
E бут“ ba d ¿ALL 1 om ms D Пр ed eg es eet 4 P б LEM ЕГ ee ы Ы Ké SC E $ 
H .. ¢ ej o» SOT AA u a 4*9 54 , 4 42... .. D Ш э t р 
DM ЧЫ EE w fe Kee EIERE EE v+ Г D U S Ce OR Ш E б 
D ГОРО uns). % 9.9! v. ы... So 4o а 1 +? D m % + D П H st 
OPEN EEN p VE TOM М ute . jw O " "E .. D "5*2. 4 ex . 4 
мана ЕЛЫ? »” * 9 9 $ fut t * H MV ы”! [TT I a t D 1 D "n t st fe. D ta j .. m] 
hl ke “Sarr poh eu LIT атала tent 4 "n D е ъв» ба $ u H ... D Ser 
АА БИА LE АКЫ ТОП аи ИЛИ аи тие аз а фа wget u PEO SA П А АА П toa SO or? LN o? J H 
D A ты TE UC NM A 4.4 М И AL A Е ЕТ = , fie Dy ate gy tae a T mn t m ГЕНЕ ТІЛІ AA A Ja no , f . T М р g f 
» A АУА ы 35. ЕРЫ Ce (e Wd IA .4%% » ye КРИТ AT TA E ÓN TC EE Y PC ag OKT nr D [PELLI LINDA | а 158 u D 
vs timet PCI el E an uid d ROLL de ol E МЕ pedit eer’. ST ou wage IER N UNC NL 1 . 44%» n "T ETET) D Й ... . D а. Mi H te 
Wal RI A RE Km Wan aw ai hi wé N ° q a le UY? 069 6049 30}. Wach: СЛ ГЕ ТЕ ... P. DDT Ki А БОЕК" „ав D VR . ` Leer? D в 
LS KN era tud а CTT Lied NO AAA apiet ptt g KM AM HAM Y nt. age? en ¿ir "y ws ° ro AA) O TD OED TT 122 m DE e S DLL ДМ ir. " ve ... ... . D П . » H М ы H D 
KE TH E LEE AY SN MM DAA TR A O ON di "n 1 PL te nee C ES u NE I . 8 П TEL М .. =. 
EECH TE MA ТҮЛКҮ И ОА ИГРИ III MEX ИНК u. O ASIA ON КЫП " DN ь рег з ы «у: ^ "n . 
Nq aa batre | a a Eër ied KAN ACTA жи ТИ КИ ДИ 2 Lia D LAN MAS ИЗ И ALE гр и | LENT LEE ' š 
Ny mun bok EU AT TM ER IE DECH AEN АТЫМ Нея Da KO AN WEE ЦИКЛГЕ САХ СГ a Ы, P u E ° N 
bd th واھ‎ Seed чм са Ное АА WV wé RAN CEMA DOMM MM: лм A OT PES ^ ‚we UU ЕЛЕУТ oe = 
ма ER e RE Ya М4 ded o eer io sb Dd i edipi OH A ILI EE dan о "05 bh, Ay p*r ЛАС 2 ato el TIC ТЛ АО ПЕНЕЙ 12 .. 
MN RA Қайы de, GC ло ила dd E De VM IP seid Ah Mé L Р А Е А АСАР I NEL TE jm KT tarada 1 TI .. 
a: d'Ae а АП) хин У ES SSR DOKTERE PCT и Oh AN Sae WAR Lech KMA MÄ PORN ВСС “1 Ke ku Un Wa Se H D D tet 
Га МЕ о Tara ku NU TT UE DT SACH DE МИМ МАСЫ ҰЗ KS CTAA D EA PRO EU АП mn er 
EEE EEE рс а а Di Ra ve OO пати DAN 15 DR ر‎ Al WM Val CT IT IN, үз „б E базов е rmm LES 
i ачан а ыы RA reu ereot tren SA A RAS EE ies 587 Ve NASA AUTEUR KT? .....04» г DREI .. . » 
en a. 209 НА И ыы ИАН чинил 2 4 TN г б . 
қақса мал мы, ам Дыл ашы E TTT Т ЫМА МУНЧАЛА ЫМ А ТАҒЫЛАРЫ АДА Zur y a uu НЕА ДУННЕ ЕСТ a ` 2 d 
МЪЛНИИ КАГЫ ГЪ Ы HSN STEM Sr a a НАЛ ytühp tes ng шиш сите аи былқ OS CAR TS d Mall АТЕШ IC ree) ба d D 
ы” ано ya К Torey] И PA ыы тө ....” il JE E A НЕ eaa y vu gu МЕНА o fey ЕГО GEN HM қ ТИГЕ ИГИ А D D D 
OH TECH Lai Mas ВАТ | Kr Die MK KE TE E AN ME ПИКНИК ЕК И Be гори GEN DEE De И AT N (EK ewer We? 
иык. 12 aR ED A OLS AH NOUIS КК Р ee eh Ia АА “АГА Mb OCH NV) y tns tu 
Sak ad ic iaa ДЬ H HEURE bn eg be AAL KO SANG NNN KN А оа ah AN WA Me k DIE HEEL M 8%... П 
ка а Хе (KIT CHA EE “. LANG WM? ъ {St Fo Hse Pir ok TNT ик, Na AAE AR CAME ца H р 
РЕЧАТ ЗА Lë LE De ORDE kal A MNNM GL e ПЕГИ P НОТЕ СКАЛА фа > 1 H D 
а елен M ыы Kéi ҚЫЛЫ ЫТУДЫ Т AE Dé y ePi ch ME ENEN H СИИ. D 
Кам ида елнын de pot: dd a HEN ҚЫҚ! HEEL AWA оран a f... " 
IO iis AA d EE: Dy RN uu 2, %-с 14, 177297071» "TP t П D 
v> pa ey ea, A ah ESSN CHL STT MME AL DOTTER: D t H 
Dd A "E RE! B MI NL I H H [gs аты 47 HI OO D 
uo А Te A ГИ av E DM) (NA б KR enn ES 
Ly i tb Wh e e LEA Day pe لھ‎ аи erdt s i .. E р 
و وز هید ا 1را وا‎ 1, ЫЫ ТІГЕ КЕТЕ Hu UN OM MAT? e" Et па ТРИ D Г 4 
Schaak e ЫЫЫ BR LIU нА La ia Mal Nd NR VAN 1 mn . 
Porta" yrs ПЕВЦИ Zetär Data wer Le ТҮШ Т Т И ШЕН КЕЛЕК ЛАЛ Т Л И ИИ ім N DH S 
SU AM erven АА И: AO ПАТИ Le POLI [М] А. паши RONN " (E Ce Ke e CATA wr . А ORT А 
БТЗ LAM de ee H OT ЖАН D Чад Da ПЕТА Ди IN ed ee даа HMM er D. PE e aem Pr DO SH ou DE? ' 
НР НГ и БАЛИ TIS RB d exp" wie ÓN: AS TEL n а = Cent 
h tp sN Vë lh KN Hie Ge ЕН av Ero penal ELA aS Kan И ÓN эе a ИШГЕ ART .. ... 
Ты Ы А. дж lie СААН 3 CASED 1 t a A a AOS O en A va Ш Ue [DNE "a E 
за Чала Ам ЕАН ги II déi НА 119155. ЫЗ на ш P Е 2. Li Deh rita ten - "T "NL П a Л . š .. А 
а ТЕЛЕМ ALOE a A E ponte US EL E E e e ge WR TO a eee А га i1i ECG D 
tet La AA VE vut p we CO DO а Mes E ELT He O АЛ O EI, ZER O ee E .. 
AES IN Y НА СИЕ CN e LS E Se De er SC Cat kn an "4 .. L .a ES ET e 
LA ai éi А а Н re ? TO А (NC OWN ur o ا‎ .. H Lë E IN CUM We EE wi EEN Su E. 
rw” SE A GC МС TEST TTE] % р a ма ек. НЕДА su: de hd T р H .... 
м.а АТЫ Léi Ж ЕАО СТО TE ВСК ИСКА d to MEET 10157 H Ш 
ПИ А а А virun" М D . h - Й " D 1 
УЯ ту. ia Би ДОЗА ИА А A je `. D тї ка as ‚в „ weet id. € y ГЫ D D а П 
GE " gant dies А A ESTO O SOON TA OO AA ИЕ TT Ы A е. AO L LET] 
“ 49 HA DATO OO O E ОЕ CT OO O ' б, Ж SI E, SR 
A AR EET РТИ + ИА TI ЕЕ " el cho» n àd H rn UE H H 1 LETT) .. Wi ‘ [14 H 
СМЕТ ЛА РИ EOS (MANU a vor ee ee yas el te 4 VUM AN ET te 1 "TE . ба E (ISS 
IAU USR U реб IT LT ОСИ" NN И ES ro» EA Ex Ge? tœ ПА 
TIT ur 34744 NICK Par Ok ee n 1 TTE ade ИА $ WT .” a? OTA Leen, da H {e 
VIC ' METETE ИЛИ O ТЕН АЛТ N H S N) £3 d X D tebe MA oR u ы 
e no Pri boi EA SR 2. Ғы er "LI H è + CARDO I M wl E BO D de) П d a š i 
. ГЕТ H 1 ' D en . WI ^ LI LE RT. П 
Быт DAN OS WH dE GE П оит: " ESL" an Der 
Lekt derniewt KA ДАРА ра HAS aM? CLA Le ККУ D TIE ы TARO Es (Re aen) КЛМ s i е. 
мА ҚА) 3 Da Mat H LO ghe VK al ЦИ ТОСНООС (réie IW TASEN Ya do 4.... DH ti O 
nach di pis DE ' Le DR vi E HVT A Ga Peur ECHO MICI post TIE 1 QE T D 
LU LIP the 4. ви " i рита А р ауте LII .. er D 
u. WA "e 474 119) V4, dp E E T EC НЕР e S ІСІ ка ; ane ve SETTE 
KA AA ° yo er Le D НА LUN ККА "(Gen ПЪН ТИПП КИЕК У © OO E ns Se rar han a T .'. Б 
Аба ләм de de re d А РЫЯ ] UA 1 HI ААҚ! A ud “ КАТТЫ A а ат ро ао ешь an LUE Т H 
q A n PANI IOS TL өн in gry ee А tet GETT WI И 7 m ~ G баз n 
А ад, М HI SE үзі b НА в, T Mx МА a LTD m PO (NM one "T" (9! oot RT . RD t° i 
N tee sat Шы Т PETI П ни. е т D r р ГА фон ee g9 э П Lk? J P 
Haat CH CRW: Ne r btk ur) CU SETA: En board Ч п b" КЕР “ Ч d Mato 1... 1! Ц La P IN 
Да E CES RM e DR uM Tm ҒАН BEE BEL SSR CH MU $enti DD OMM Yan Hr Abe DTO . „ Це ME 
nae rir beo aud a 944 ща S vk BUNT NW TE A и WW DOT ILE Me; Aa j Map Lao y D UI E E NC E E KE e 
NEEN EE EECH M M nU SE 
t AA! M Ти "13е a “-. А og DTW ner D m A f р LES М 

е И E Cat: qu nd y gm LER OCT AE yeh НИ Pan ET no qua we 
ps] re. ` HR LIE (Hä V EN P \ Du EDITA ETE E ER LN EE Weer ШАП ТШ 
АЫ тоунаа, KCL EEN Te E DI CS ALS n жар АЛСА AE Ц 
nu. D 14.24 ы D PEE Did rude PET Mf. ois Or s р " o 

were И А А Leo de d СДУ GEN No 0 dän? АСЕТ E Т 
Kei “Ғыл ГЕТ, wed CRMT EEDE \ 5 4% et . 
Dl M d D VIDE TN CU Ша ЖИЗ a ۰ 
v p^ qo p AP wr Pt oS ТЫ СОЛИ И И Ку MI Wé CLE T d H 
ттш бе л y u oti Aus ELLE EN uM į А n mt a 
LE ern [1 IK) И, ТИЙ LEM y mE De Ер ets и y ( a Й d D í . 
hen Mai IE М n KEE e is M j “ ue М” ri [CETTE as: TOM DETUR La ra. 

e MURT D DR АТ N у Hoe (Seam таи ИСИ tus re vef 

PE yan ПИ GAN и GC a un Wwe Sen Pe Er Ip eva mat EMM Hd Е СИП Р 
KALA MM ALA et E N Lu y a II Y y е Н ННН 4, ' ЛЕ 
سا بم ا‎ ГО te К: x KA dl WC d ua) И ИН la vera? E 
ur PS AA d ad ia i ر‎ E nA mum ты ГОТА M HIN WOR) На. ә. С 
t ЧЕ ЧАСЫ Sand RAR Dd iie A Ae "va Mis efl ° Ы 
4% Mene P ти EM SP Är ROA H aT N lé) Ни Ийв еи ч i HA, 4 y DS 
АТАКА АНА ХА. 7 YY NIC Na M Ge) dei ИН vi ZEN 
E DRM MALA TL PT: Ze" D | ча | Ge d u AN LB EU М 
w g akka, hengel Sadiq TO E ATH PV PET w wl Е .Т0Ша 


